pertama-tama temen2 coba desain tampilan seperti di atas, dengan memakai, 6 shape, 1 label dan 1 timer. timer internal nya di ganti dgn 100. lalu ketikan kodingannya :
Private Sub Timer1_Timer()
Static state As Integer
Select Case state
Case 0
shpred.BackColor = vbRed
shpyellow.BackColor = vbWhite
shpgreen.BackColor = vbWhite
lblmsg.Caption = "STOP"
lblmsg.ForeColor = vbRed
Timer1.Interval = 7000
state = 1
Case 1
shpred.BackColor = vbWhite
shpyellow.BackColor = vbYellow
shpgreen.BackColor = vbWhite
lblmsg.Caption = "WAIT"
lblmsg.ForeColor = vbRed
Timer1.Interval = 3000
state = 2
Case 2
shpred.BackColor = vbWhite
shpyellow.BackColor = vbWhite
shpgreen.BackColor = vbGreen
lblmsg.Caption = "GO"
lblmsg.ForeColor = vbRed
Timer1.Interval = 5000
state = 0
End Select
End Sub
