Private Sub myTextBox_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles myTextBox.GotFocus
        txtNome.BackColor = ....
    End Sub

    Private Sub myTextBox_LostFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles myTextBox.LostFocus
        txtNome.BackColor = ....
    End Sub