[Najy Ibraheem]

السلام عليكم...

إذا افترضنا أن الصورة الأولى هي Image1 و أن الصورة الثانية هي Image2.

1. في القسم العام (General Declarations) الخاص بالـ Form قم بتعريف المتغيرين التاليين:

كود :

Private StartX As Single
Private StartY As Single

2. في إجراء الحدث MouseDown للـ Image1 اكتب الكود التالي:

كود :

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then
       StartX = X
       StartY = Y
   End If
End Sub

3. في إجراء الحدث MouseMove للـ Image1 اكتب الكود التالي:

كود :

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
   If Button = vbLeftButton Then
       List1.Left = List1.Left + X - StartX
       List1.Top = List1.Top + Y - StartY
   
       List2.Left = List2.Left + X - StartX
       List2.Top = List2.Top + Y - StartY
   End If
End Sub

* كرر نفس الأكواد للحدثين MouseDown و MouseMove لل Image2.

* عند تحريك إحدى الصورتين - بالفأرة - تتحرك الصورة ا×رى بنفس المقدار و في نفس الاتجاه.

أرجو الاستفادة و السلام.