كود لمعرفه الاختلافات بين الصورتين

السلام عليكم ورحمة الله وبركاته

انا الان اعمل على تصميم لعبه الاختلاف بين الصورتين .. الفكره هيه ان يكون هناك صورتين بينهم 2 اختلافات وعليك معرفتهم .. وعند اكتمال الحل هناك كوماند لاستبدال الصور الحاليه باخرى من قاعدة البيانات .. الخطوه الاولى والاساسيه الحمد الله عملتها لكن هناك عوائق ارجوووو مساعدتي في حلها

اولا اشرح فكرتي وهي بوضع الكود في الفورم كخطوه اولي

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

Label1.Caption = X

Label2.Caption = Y

End Sub

ثم احدد الاحداثيات للاماكن المختلفه بين الصورتين واضع الكود التالي

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (X < 1590 And X > 1470 And Y < 1215 And Y > 1080) Then MsgBox "", 1

If (X = 1200 And Y < 858 And Y > 330) Then MsgBox "", 1

End Sub

الان اريد مساعدتكم باكمال الفكره .. النقاط صغيره لكنها تقف عائق امامي .. اريد ان اجعل المستخدم لا يختار نفس الاختلاف مرتين .. وكيف اعرف انه اختار جميع النقاط ام لا .. يعني كيف اعد الاماكن اللي اكتشفها ..انا كتبت الكود التالي ولم ينفع

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)

If (X < 1590 And X > 1470 And Y < 1215 And Y > 1080) Then MsgBox "", 1 And c = c + 1

If (X = 1200 And Y < 858 And Y > 330) Then MsgBox "", 1 And c = c + 1

End Sub