テキストボックスについて

質問

使っている環境はVB6.0です。
テキストボックスが２つあり、１つ目のテキストボックスでEnterキーを押すとテキストボックスの２つ目にフォーカスが移動するというものなのですが、その移動したときに２つ目のテキストボックスの文字が選択されている状況を作りたいのですが何か良い方法はないでしょうか？
文字は最初から入っている前提でお願いします。

回答No.1

noname#259269 · ベストアンサー

Private Sub Text2_GotFocus()
Me.Text2.SelStart = 0
Me.Text2.SelLength = Len(Me.Text2.Text)
End Sub

こんな感じです。