ساخت برنامه چند عکس تصادفی و پیدا کردن مشابه

با سلام من یه برنامه نویس سی شارپ هستم حالا یکی که برام خیلی عزیزه سورس برنامه ای خواسته که با وی بی باشه اگه کسی کمک کنه بسیار ممنونش هستم برنامه به این شکله که شما مثلا 4 در 4 عکس دارید که مجموعا میشه 16 عکس که 8 تا اونا با 8 تا دیگه تکراری هستن و به صورت تصادفی در فرم قرار می گیرند و اگر کاربر بر روی 2 تا تکراری کلیک کرد باید حذف شوند(کاملا مثل یک پازل که چند عکس به صورت تصادفی در فرم قرار می گیرند و شما باید تکراری ها را حذف کنید.) با تشکر

اقایون محترم لطف کنید یکی جواب بده

یکی از دوستان نمی خواد کمک کنه ! بابا بازم به خودم برا بقیه سر شارپ می گم

pls help me

سلام
فقط کافیه در یک پروژه vb.nat کد زیر را اضافه کنی
البته 8 تا تصویر jpg با نام های 1 تا 8 با اندازه 90در90 پیکسل هم نیاز است که باید در کنار فایل exe قرار گیرد

کد:

---


Imports System.Windows.Forms
Imports System.Timers
Public Class Form1
Private myPanel(16) As Panel
Private myImageList As New ImageList
Private myPicb(16) As PictureBox
Private firstShow As Boolean = True
Private firstPicTag As Integer
Private firstPic As PictureBox
Private secondPic As PictureBox
Private WithEvents Timer1 As System.Windows.Forms.Timer
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim arr As New ArrayList
Me.Width = 430
Me.Height = 460
myImageList.ColorDepth = ColorDepth.Depth24Bit
myImageList.ImageSize = New System.Drawing.Size(90, 90)
For i As Integer = 1 To 8
myImageList.Images.Add(Image.FromFile(System.IO.Path.Combine(Application.StartupPath, i.ToString + ".jpg")))
Next
Dim counter As Integer = 1
For i As Integer = 20 To 320 Step 100
For j As Integer = 20 To 320 Step 100
myPanel(counter) = New Panel
myPanel(counter).Location = New System.Drawing.Point(j, i)
myPanel(counter).Size = New System.Drawing.Size(90, 90)
myPanel(counter).BorderStyle = BorderStyle.Fixed3D
AddHandler myPanel(counter).Click, AddressOf Panel_Click
myPicb(counter) = New PictureBox
myPicb(counter).Location = New System.Drawing.Point(0, 0)
myPicb(counter).Size = New System.Drawing.Size(90, 90)
myPicb(counter).Visible = False
arr.Add(myPicb(counter))
myPanel(counter).Controls.Add(myPicb(counter))
Me.Controls.Add(myPanel(counter))
counter += 1
Next
Next
Dim random As Integer
For i As Integer = 0 To 7
Randomize()
random = Rnd() * arr.Count
If random = arr.Count Then
random -= 1
End If
CType(arr.Item(random), PictureBox).Image = myImageList.Images(i)
CType(arr.Item(random), PictureBox).Tag = i
arr.RemoveAt(random)
Randomize()
random = Rnd() * arr.Count
If random = arr.Count Then
random -= 1
End If
CType(arr.Item(random), PictureBox).Image = myImageList.Images(i)
CType(arr.Item(random), PictureBox).Tag = i
arr.RemoveAt(random)
Next
Timer1 = New System.Windows.Forms.Timer()
Me.Timer1.Interval = 1000
End Sub
Sub Panel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
If Timer1.Enabled Then
Return
End If
CType(sender, Panel).Controls(0).Visible = True
If firstShow Then
firstPic = CType(sender, Panel).Controls(0)
firstPicTag = CType(sender, Panel).Controls(0).Tag
Else
secondPic = CType(sender, Panel).Controls(0)
If firstPicTag = CType(sender, Panel).Controls(0).Tag Then
Me.Controls.Remove(CType(sender, Panel))
Me.Controls.Remove(firstPic.Parent)
Else
Timer1.Enabled = True
End If
End If
firstShow = Not firstShow
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
firstPic.Visible = False
secondPic.Visible = False
Timer1.Enabled = False
End Sub
End Class

---