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 redlight2()
'tmryellowflash.Enabled = False
shpredlight2.BackStyle = 1
shpyellowlight2.BackStyle = 0
shpgreenlight2.BackStyle = 0
lbldont2.Visible = True
lblwalk2.ForeColor = RGB(255, 0, 0)
lblwalk2.Visible = True
End Sub
Private Sub yellowlight2()
'tmryellowflash.Enabled = True
shpredlight2.BackStyle = 0
shpyellowlight2.BackStyle = 1
shpgreenlight2.BackStyle = 0
lbldont2.Visible = True
lblwalk2.ForeColor = RGB(255, 0, 0)
lblwalk2.Visible = True
End Sub
Private Sub greenlight2()
'tmryellowflash.Enabled = False
shpredlight2.BackStyle = 0
shpyellowlight2.BackStyle = 0
shpgreenlight2.BackStyle = 1
lbldont2.Visible = False
lblwalk2.ForeColor = RGB(0, 255, 0)
lblwalk2.Visible = True
End Sub
 
Private Sub tmrchange_Timer()
lightcounter = lightcounter + 1
 
If lightcounter = 1 Then
redlight
greenlight2
End If
If lightcounter = 2 Then
redlight
yellowlight2
End If
If lightcounter = 3 Then
greenlight
redlight2
End If
If lightcounter = 4 Then
yellowlight
redlight2

lightcounter = 0
End If