Private Sub Form_Load()
Timer1.Interval = 100
Label1.Caption = "Irgendwas"
Label2.Caption = "Noch was"
End Sub
 
Private Sub Timer1_Timer()
Static C As Long
C = C + 1
If C >= 2000 / Timer1.Interval Then
    Label2.Caption = "Label1 hat sich 2 Sek. nicht geändert"
End If
End Sub

???????????????????????????????????????????????????????????
e7o.de | jetzt (wirklich) neu!