Moving/Draggin Image Box???

[plenderj]

To move the box :

Private prevX As Single, prevY As Single
 
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then Image1.Move Image1.Left - (prevX - X), Image1.Top - (prevY - Y)
End Sub
 
Private Sub Image1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    prevX = X
    prevY = Y
End Sub