Private Sub CheckSevText(sevT As sevText)
 
With sevT
    If sevT.Value = "00:00" Or sevT.Value = "" Then
        .ForeColorFocus = vbBlack
        .ForeColor = vbWhite
        Me.Text.Text = "geändert auf vbWhite da Wert = 00:00"
    Else
        .ForeColor = vbBlack
        .ForeColorFocus = vbBlack
        Me.Text.Text = "geändert auf vbBlack da Wert >00:00"
 
    End If
 
 
End With
 
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de