How do you drag pictures during runtime????
Printable View
How do you drag pictures during runtime????
To move a picture:
Code:Dim oldX As Long, oldY As Long, isMoving As Boolean
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
oldX = X
oldY = Y
isMoving = True
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If isMoving Then
Picture1.Top = Picture1.Top - (oldY - Y)
Picture1.Left = Picture1.Left - (oldX - X)
End If
End Sub
Private Sub Picture1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
isMoving = False
End Sub