Private Sub cmdEnde_Click()
 
    varBlinken = False
 
End Sub
 
Private Sub cmdStart_Click()
 
    varBlinken = True
 
    varOriginalFarbe = labHinweisBlinken.ForeColor
    Do Until varBlinken = False
        labHinweisBlinken.Tag = Val(labHinweisBlinken.Tag) + 1
        If labHinweisBlinken.ForeColor = varOriginalFarbe Then
            If labHinweisBlinken.Tag > 8000 Then
                labHinweisBlinken.ForeColor = RGB(255, 0, 0)
                labHinweisBlinken.Tag = 0
            End If
        Else
            If labHinweisBlinken.Tag > 8000 Then
                labHinweisBlinken.ForeColor = varOriginalFarbe
                labHinweisBlinken.Tag = 0
            End If
        End If
        DoEvents
    Loop
    labHinweisBlinken.ForeColor = varOriginalFarbe
 
End Sub

Global varBlinken As Boolean

*greetz*
Tim
.
http://www.DotNetWorld.de