Private Sub Timer1_Timer()
If (flag - 3) = 0 Then
flag = 0
Else
If flag = 0 Then
Image4.Picture = Image1.Picture
Else
If flag = 1 Then
Image4.Picture = Image2.Picture
Else
If flag = 2 Then
Image4.Picture = Image3.Picture
End If
flag = flag + 1
End If
End Sub