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

Формулировка задачи:

Всем здравствуйте. На VB-6 автовыделение реализовывалось так:

                    Листинг программы
                
Private Sub Text1_GotFocus()
  Text1.SelStart = 0
  Text1.SelLength = Len(Text1.Text)
End Sub

но почему подобное не даёт никакого результата на VB.NET?

                    Листинг программы
                
    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

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

textual
                            Листинг программы 
                        
 
                        
                          
                    
    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