Perder foco en windows form

[RootK]

Obtener Foco:

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

End Sub

Cuando se pierde el foco:

Private Sub TextBox1_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.LostFocus

End Sub

Salu2