Private Sub TextBox_GotFocus(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles TextBox2.GotFocus, TextBox3.GotFocus, _
      TextBox4.GotFocus
        CType(sender, TextBox).BackColor = Color.Lime
    End Sub
 
    Private Sub TextBox_LostFocus(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles TextBox2.LostFocus, TextBox3.LostFocus, _
      TextBox4.LostFocus
        CType(sender, TextBox).BackColor = Color.White ' (SystemColors.Window)
    End Sub

#######
ICQ: 192-576-074
http://codinglukas.co.funpic.de/

Wer fragt ist ein Narr - f?r 5 Minuten.
Wer nicht fragt ist ein Narr - sein Leben lang.
Quarks&Co