[VB_Coder]

السلام عليكم
- إستخدم هذه الطريقة أعتقد هي المثالية :

كود :

Dim SSX As Integer
Dim SSY As Integer


Private Sub Picture1_DblClick(Index As Integer)
MsgBox "Iam Picture1 My Index is " & Index
End Sub

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

- تحياتي .