Private Sub TextBox1_gotfoc us() Handles TextBox1.GotMou seCapture
Me.TextBox1.Sel ectionStart = 0
Me.TextBox1.Sel ectionLength = Len(TextBox1.Te xt)
End Sub