أرجو المساعدة سريعا

السلام عليكم

الكود التالي يعطيك نقطة خضراء مكان الاختلاف

Private Sub Command1_Click()
Image2.Stretch = True
Image1.Move 0, 0
Image2.Move Image1.Width, 0, Image1.Width, Image1.Height
For i = 0 To Image1.Width Step 10
  For j = 0 To Image1.Height Step 10
   If Not Point(i, j) = Point(i + Image1.Width, j) Then
   Form1.DrawWidth = 20
   PSet (i, j), vbGreen
   GoTo l1
   End If
 Next
Next

MsgBox "they are identical"
GoTo l2
l1: MsgBox "they are not identical"
l2: '

End Sub

جرب هذا الكود ايضا

Private Sub Command1_Click()
Image2.Stretch = True
Image1.Move 0, 0
Image2.Move Image1.Width, 0, Image1.Width, Image1.Height
For i = 0 To Image1.Width Step 10
  For j = 0 To Image1.Height Step 10
   If Not Point(i, j) = Point(i + Image1.Width, j) Then
   Form1.DrawWidth = 20
   PSet (i, j), vbGreen

   End If
 Next
Next

End Sub