テキストボックス コントロールがフォーカスを取得したときに、テキストボックス内のすべてのテキストを選択したい場合があります。これは、SelStart プロパティと SelLength プロパティを使用して実現できます。具体的には、オブジェクトにフォーカスが当たったら先頭から選択（SelStart=0）し、選択した長さがテキストの長さ（Len(Text1)）となります。ソースコードは以下のとおりです。
プライベートサブテキスト1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
エンドサブ
GotFocus イベントは、コントロールがフォーカスを取得したときに発生します。