Private Sub TextBox_GotFocus(ByVal sender As Object, ByVal e As _
  System.EventArgs) Handles TextBox1.GotFocus, TextBox2.GotFocus, _
  TextBox3.GotFocus, TextBox4.GotFocus
 
   Dim tb As TextBox = CType(sender, TextBox)
   tb.SelectAll()
 
End Sub