Dim lightcounter As Integer
Dim flashcounter As Integer
Private Sub cmdquit_Click()
End
End Sub
Private Sub redlight()
'tmryellowflash.Enabled = False
shpRedlight.BackStyle = 1
shpYellowlight.BackStyle = 0
shpGreenlight.BackStyle = 0
lblDont.Visible = True
lblWalk.ForeColor = RGB(255, 0, 0)
lblWalk.Visible = True
End Sub
Private Sub yellowlight()
'tmryellowflash.Enabled = True
shpRedlight.BackStyle = 0
shpYellowlight.BackStyle = 1
shpGreenlight.BackStyle = 0
lblDont.Visible = True
lblWalk.ForeColor = RGB(255, 0, 0)
lblWalk.Visible = True
End Sub
Private Sub greenlight()
'tmryellowflash.Enabled = False
shpRedlight.BackStyle = 0
shpYellowlight.BackStyle = 0
shpGreenlight.BackStyle = 1
lblDont.Visible = False
lblWalk.ForeColor = RGB(0, 255, 0)
lblWalk.Visible = True
End Sub
Private Sub tmrchange_Timer()
lightcounter = lightcounter + 1
If lightcounter = 1 Then
redlight
End If
If lightcounter = 2 Then
greenlight
End If
If lightcounter = 3 Then
yellowlight
lightcounter = 0
End If
End Sub