Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        For Each ct In Me.Controls
            If TypeOf ct Is TextBox Then
                AddHandler ct.GotFocus, AddressOf ct_GotFocus
                AddHandler ct.Click, AddressOf ct_Click
            End If
        Next
   End Sub

    Private Sub ct_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim Tb As TextBox = Me.ActiveControl
        Tb.SelectionStart = 0
        Tb.SelectionLength = 9
    End Sub

    Private Sub ct_Click(ByVal sender As Object, ByVal e As System.EventArgs)
        ct_GotFocus(sender, e)
    End Sub

fg viperbone