выделение текста при попадании фокуса в TextBox

[er_admin]

не получается сделать. помогите кодом
спасибо

примечание: при переходе по ТАБу - работает, а при переходе мышкой - не работает. обрабатываю Enter and GotFocus

[Amed]

Код: Выделить всё

Private Sub Text1_GotFocus()
With Text1
    .SelStart = 0
    .SelLength = Len(.Text)
End With
End Sub

[er_admin]

Код: Выделить всё

Private Sub Text1_GotFocus()
With Text1
    .SelStart = 0
    .SelLength = Len(.Text)
End With
End Sub

это не работает, если перейти к TextBox-у посредством мыши. думаю обрабатывать МаусДаун, но как-то это некрасиво

[Amed]

Пардон, мой код-то для VB6.

[Ramzes]

Код: Выделить всё

    Private Sub TextBox1_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.GotFocus
        TextBox1.SelectAll()
    End Sub

    Private Sub TextBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles TextBox1.MouseDown
        TextBox1.SelectAll()
    End Sub