[@@أبورائد@@]

ضع أداة Image وفيها صورة

كود :

Dim mouseX As Integer, mouseY As Integer

Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    mouseX = X
    mouseY = Y
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
         Image1.Left = Image1.Left + X - mouseX
         Image1.Top = Image1.Top + Y - mouseY
    End If
End Sub