Public Class Form1
' Dim picArr(10) As String = {WindowsApplication1.My.Resources.Resources.Koala, WindowsApplication1.My.Resources.Resources.Jellyfish}
Dim flag As Integer = 0
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If flag = 0 Then
PictureBox1.ImageLocation = "c:\1.jpg"
PictureBox2.ImageLocation = "c:\2.jpg"
flag = flag + 1
Else
PictureBox1.ImageLocation = "c:\2.jpg"
PictureBox2.ImageLocation = "c:\1.jpg"
flag = 0
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Timer1.Stop()
End Sub
End Class