テキストボックス選択時にテキスト選択状態にしたい

環境/言語:[VB.NET　Windows2000]
分類:[.NET]

いつもお世話になります。

テキストボックスのGotFocusイベントでテキスト全体を選択状態にしたいのですが、
いくつか問題が発生してます。

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtInCode.GotFocus
    TextBox1.SelectAll()
End Sub

上記のコードで実行すると
1.何度も同じイベントが走る
2.クリック選択時に全選択されない（TAB移動はちゃんと動作する）

などの問題がでてしまいました。
解決方法をご存知の方がいらっしゃいましたら是非ご教授お願いいたします。

すみません軽く修正です。

Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
     TextBox1.SelectAll()
End Sub

■No6579に返信(keiさんの記事)
> すみません軽く修正です。
>
> Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
> TextBox1.SelectAll()
> End Sub

GotFocus() イベントは低水準イベントなので、お勧めしません。
FormがActiveになった際にも、走るイベントです。
Enter() イベントを使いましょう。

java.lang.Nullpoさんありがとうございます。

> GotFocus() イベントは低水準イベントなので、お勧めしません。
> FormがActiveになった際にも、走るイベントです。
> Enter() イベントを使いましょう。

初めて知りました・・以後気をつけます。

EnterイベントとClickイベントをあわせて何とかできました。