[VB_Coder]

السلام عليكم

- قم بتسمية جميع التكستات بإسم واحد لكي تكون في مصفوفة ، ثم إستخدم هذا الكود ، فقط غير إسم ال Picture1 إلى الإسم الموحد للتكستات :

كود :

Dim SSX As Integer
Dim SSY As Integer

Private Sub Picture1_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
SSX = X
SSY = Y
End Sub

Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
   Picture1(Index).Left = Picture1(Index).Left + X - SSX
   Picture1(Index).Top = Picture1(Index).Top + Y - SSY
End If
End Sub

- تحياتي .