طلب كود ضروووووري يغير الصور

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Me.PictureBox1.Load("C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\3.JPG")

Me.PictureBox2.Load("C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\4.JPG")

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Me.PictureBox1.Load("C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\1.JPG")

Me.PictureBox2.Load("C:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\2.JPG")

End Sub

اكتب الكود التالي عند النقر على الزر

Static a as Boolean
a=Not a
If a= False Then
me.PictureBox1.Image=Image.FromFile("a.gif")
Else
me.pictureBox1.Image=Image.FromFile("b.gif")
End If