Dim dX As Single
Dim dY As Single
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
dX = X
dY = Y
End If
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = vbLeftButton Then
Picture1.Left = Picture1.Left + (X - dX)
Picture1.Top = Picture1.Top + (Y - dY)
End If
End Sub