Private Const M_CON_Bgr_ERROR = &HFF&                ' rot
Private Const M_CON_Bgr_AKTIV = &H54C2FA             ' orange
Private Const M_CON_Bgr_PASSI = &H80000005           ' weiss
Private Const M_CON_Bgr_GRAU = &H8000000F            ' grau
 
Private Sub btnCheckIt_Click()
  Dim C As Control
  Dim Ce As Control
  Dim i As Integer
 
  For i = sevText1.uBound To sevText1.lBound Step -1
    Set C = sevText1(i)
    If Len(Trim(C)) = 0 Then
      Set Ce = C
      C.BackColor = M_CON_Bgr_ERROR
    Else
      ' Neu per 28.09.2005
      If C.BackColor = M_CON_Bgr_ERROR Then C.BackColor = M_CON_Bgr_PASSI
    End If
  Next i
  If Not Ce Is Nothing Then Ce.SetFocus
End Sub