Private Sub Text1_GotFocus(Index As Integer)
  Text1(Index).BackColor = vbRed
  Text1(Index).ForeColor = vbWhite
End Sub

Private Sub Text1_LostFocus(Index As Integer)
  Text1(Index).BackColor = vbWindowBackground
  Text1(Index).ForeColor = vbWindowText
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de