[VB.NET] مساعدة من فضلكم - نسخة قابلة للطباعة

كود :
  Private Function getImage() As Image

        Dim indx As Integer

        Dim img As Integer

        Dim rtn As Image = Nothing

        Label2.Enabled = False

        If _unusedImages.Count > 0 Then

            indx = _ran.Next(0, _unusedImages.Count)

            img = _unusedImages(indx)     

            rtn = _images(img)          

            _unusedImages.RemoveAt(indx)   

        Return rtn

    End Function



Private Sub CreateUnusedIndexList()

        _unusedImages.Clear()

        For indx As Integer = 0 To 9

            _unusedImages.Add(indx)

        Next



    End Sub



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

                Button2.Click, Button3.Click, Button4.Click, Button5.Click, Button6.Click,

        Button7.Click, Button8.Click, Button9.Click, Button10.Click



       If CType(sender, Button).BackColor = Color.Gray Then

            هنا اريد كود ارجاع نفس الصورة التي ظهرت سابقا في الزر المضغوط 

 PictureBox1.Image = الصورة التي ظهرت في الزر  مسبقا

            GoTo okk

        End If



        CType(sender, Button).BackColor = Color.Gray

        PictureBox1.Image = getImage()

okk:

End Sub