How to drag pictures during RunTime

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

---