Timersteuerung

[boozer]

hi

ich hab ein problem und zwar habe ich ein Timer so wie unten programmiert.
Jetzt wollte ich fragen ob es eine möglich keit gibt das wenn er auf 4 gezählt hat die Zeit wieder auf null geht. Also das es sich so lange wiederholt bis ich abbreche?

wär nett wenn ihr mir helfen würdet...

-boozer

Private Sub tmrTimer_Timer()
Zeit = Zeit + 1
If Zeit = 1 Then
Shape1(0).BackColor = vbRed
End If
If Zeit = 3 Then
Shape2(0).BackColor = &H80FF&
End If
If Zeit = 4 Then
Shape3(0).BackColor = vbGreen
End If

End Sub

 

[Shakie]

Da muss ich mal scharf überlegen....hm..schwieriges Problem....hm.....

If Zeit = 4 Then Zeit = 0

...so?

 

[boozer]

ja ich habs dann auch später gemerkt.......

bin irgendwie vorher voll auf dem schlauch gestanden
sorry

aber trotzdem danke