テキストボックス の テキスト 全選択

テキストボックスを選択時(クリック時)
テキストボックス内の文字を全選択する。

    Private Sub TextBox1_Click(sender As Object, e As EventArgs) Handles TextBox1.Click
        Me.TextBox1.SelectAll()
    End Sub

DOBON様のサイトでは、TextBox1_Enterイベントで処理されていたが、
Clickイベントでやると期待通りの動作となった。