Private Function Change() As Boolean
  StartTime = sevVon.Value
  StopTime = sevBis.Value
  ' Ist die eingegebene Zeit plausibel?
  If StartTime >= StopTime Then
    sevVon.ForeColor = vbRed
    sevVon.ForeColorFocus = vbRed
    sevBis.ForeColor = vbRed
    sevBis.ForeColorFocus = vbRed
    Change = False
  Else
    sevVon.ForeColor = vbBlack
    sevVon.ForeColorFocus = vbBlack
    sevBis.ForeColor = vbBlack
    sevBis.ForeColorFocus = vbBlack
  End If
End Function

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de