Postada em 30/09/2010 19:10 hs
faça isso
Dim MouseX As Long, MouseY As Long
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = 1) Then
MouseX = X
MouseY = Y
End If
End Sub
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If (Button = 1) Then
Image1.Left = Image1.Left + X - MouseX
Image1.Top = Image1.Top + Y - MouseY
End If
End Sub
|
