Hur ska jag göra för att få en loop som ser ut så här!!

start av loop
form1.backcolor = vbred
gör inget i 5 sekunder
form1.backcolor = vbblue
gör inget i 10 sekunder
starta om loopen

Funderar på om det finns någon sleep funktion men det tror jag inte, så nu vet jag inte hur jag ska göra. Hjälp någon!!

Testa med timer-kontrollen.
Kasta in den i ditt formulär och sätt timer-värdet till 5000.

Klura lite, skriv lite kod och sen är det klart :)

Använd Timer-eventet och ändra din färg och sätt nytt intervall (dvs 10sek)
Nästa gång sätter du ny färg och ändrar tillbaka till 5 sek.

/Egget

Kod för förslag ovan:
<code>
Private Sub Form_Load()
Timer1_Timer
End Sub

Private Sub Timer1_Timer()
If Form1.BackColor = vbRed Then
Form1.BackColor = vbBlue
Timer1.Interval = 10000
Else
Form1.BackColor = vbRed
Timer1.Interval = 5000
End If
End Sub
</code>

Tack för hjälpen!!!