[silverlight]

في الفورم رقم 2 انسخ الكود التالي كما هو ثم قم بتشغيل الفورم رقم 2
و بنفس الاسلوب تستطيع أن تصمم بقية الفورم

كود :

Public Class Form2

   ' تعريف مصفوفة لحفظ الصور
   Private imageFiles() As Bitmap = Nothing
   '  تعريف عداد للصور
   Dim counter As Integer = 0

   Private Sub ShowImage(bmp As Bitmap, picBox As PictureBox)
       picBox.Image = bmp
   End Sub

   Private Function GetImageFiles() As Bitmap()
       ' أضف العددي المطلوب من الصور
       Dim imageList As List(Of Bitmap) = New List(Of Bitmap) From {My.Resources.g__2_.Clone, My.Resources.g__3_.Clone, My.Resources.g__4_.Clone}
       ' استرجع الصور
       Return imageList.ToArray
   End Function

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Me.counter += 1
       ShowImage(Me.imageFiles((Me.counter) Mod Me.imageFiles.Length), PictureBox1)
   End Sub

   Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
       Me.counter -= 1
       ShowImage(Me.imageFiles((Me.counter) Mod Me.imageFiles.Length), PictureBox1)
   End Sub


   Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       imageFiles = GetImageFiles()
       Me.PictureBox1.Image = imageFiles(0)
   End Sub

End Class