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