Как организовать автовыделение содержимого TextBox при получении фокуса?

    Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
        TextBox1.SelectionStart = 0
        TextBox1.SelectionLength = Len(TextBox1.Text)
    End Sub

    Private WithEvents T As New Timer With {.Interval = 150}
 
    Private Sub TextBox1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
        T.Start()
    End Sub
 
    Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles T.Tick
        T.Stop()
        If TextBox1.Focused Then TextBox1.SelectAll()
    End Sub

    Private WithEvents T As New Timer With {.Interval = 150}
    Private CurrentTextBox As TextBox
 
    ' указываем события всех необходимых элементов или добавляем обработчик события через AddHandler 
    Private Sub TextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter
        CurrentTextBox = sender
        T.Start()
    End Sub
 
    Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles T.Tick
        T.Stop()
        If CurrentTextBox.Focused Then CurrentTextBox.SelectAll()
    End Sub

Private Sub Form_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    TextBox1.Tag = False
    TextBox2.Tag = False
    TextBox3.Tag = False
End Sub
Private Sub TextBoxs_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles TextBox3.MouseClick, TextBox2.MouseClick, TextBox1.MouseClick
    Dim tbx As TextBox = CType(sender, TextBox)
    Dim bb As Boolean = CType(tbx.Tag, Boolean)
    If bb Then
        tbx.SelectionStart = 0
        tbx.SelectionLength = Len(tbx.Text)
    Else
        tbx.SelectionStart = Len(tbx.Text)
        tbx.SelectionLength = 0
    End If
    tbx.Tag = Not bb
End Sub

Private Sub TextBoxs_MouseClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles TextBox3.MouseClick, TextBox2.MouseClick, TextBox1.MouseClick
    Dim tbx As TextBox = CType(sender, TextBox)
    Dim bb As Boolean = CType(tbx.Tag, Boolean)
    If bb Then
        tbx.SelectionStart = 0
        tbx.SelectionLength = Len(tbx.Text)
    Else
        tbx.SelectionStart = Len(tbx.Text)
        tbx.SelectionLength = 0
    End If
    For Each tx As Control In Me.Controls
        If TypeOf (tx) Is TextBox Then
            tx.Tag = True
        End If
    Next
    tbx.Tag = Not bb
End Sub

    Private WithEvents T As New Timer With {.Interval = 50}
    Private CurrentTextBox As TextBox
 
    ' указываем события всех необходимых элементов или добавляем обработчик события через AddHandler 
    Private Sub TextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter, TextBox2.Enter, TextBox3.Enter, TextBox4.Enter
        CurrentTextBox = sender
        T.Start()
    End Sub
    Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles T.Tick
        T.Stop()
        If CurrentTextBox.Focused Then
            CurrentTextBox.TextAlign = HorizontalAlignment.Left
            CurrentTextBox.SelectAll()
        End If
    End Sub
    Private Sub TextBox1_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave, TextBox2.Leave, TextBox3.Leave, TextBox4.Leave
        CurrentTextBox.TextAlign = HorizontalAlignment.Right
    End Sub

    Private WithEvents T As New Timer With {.Interval = 50}
    Dim fEnter As Boolean
    ' указываем события всех необходимых элементов или добавляем обработчик события через AddHandler 
    Private Sub TextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Enter
        sender.SelectionStart = 0
        sender.SelectionLength = 0
        fEnter = True
        T.Start()
    End Sub
    Private Sub T_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles T.Tick
        T.Stop()
        If fEnter = True Then
            TextBox1.SelectAll()
            TextBox1.TextAlign = HorizontalAlignment.Left
        Else
            TextBox1.TextAlign = HorizontalAlignment.Right
        End If
    End Sub
    Private Sub TextBox_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Leave
        fEnter = False
        T.Start()
    End Sub