Public Class Form1
Dim sayac As Integer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
sayac += 1
If sayac Mod 4 = 1 Then
pbkirmizi.Image = imglist.Images(1)
pbsari.Image = imglist.Images(2)
pbyesil.Image = imglist.Images(4)
Timer1.Interval = 3000
ElseIf sayac Mod 4 = 2 Then
pbkirmizi.Image = imglist.Images(0)
pbsari.Image = imglist.Images(3)
pbyesil.Image = imglist.Images(4)
Timer1.Interval = 1000
ElseIf sayac Mod 4 = 3 Then
pbkirmizi.Image = imglist.Images(0)
pbsari.Image = imglist.Images(2)
pbyesil.Image = imglist.Images(5)
Timer1.Interval = 3000
Else
pbkirmizi.Image = imglist.Images(0)
pbsari.Image = imglist.Images(3)
pbyesil.Image = imglist.Images(4)
Timer1.Interval = 1000
End If
End Sub
End Class


Buyur kardeşim bu şekilde çalışıyor.