Write a program in Visual Basic to design traffice Light

Program in Visual Basic to design Traffic Light

Step1 Open a new project in VB IDE
Step2 Add three shape control (Shape1, Shape2, and Shape3) from Tool Box on the form. Change Back Style Property of each Shape control to Opaque (By property window).
Step3 Drag & drop a Timer control on the form and Set its Interval Property to some Integer value (say 3000).
Step4 Now write the following code on the Timer Event of Timer Control (Timer1)

Private Sub Timer1_Timer()
If Shape3.BackColor = vbGreen Then
Shape2.BackColor = vbYellow
Shape3.BackColor = vbWhite
Timer1.Interval = 500
ElseIf Shape2.BackColor = vbYellow Then
Shape1.BackColor = vbRed
Shape2.BackColor = vbWhite
Timer1.Interval = 5000
Else
Shape3.BackColor = vbGreen
Shape1.BackColor = vbWhite
Timer1.Interval = 3500
End If
End Sub