Prova a scrivere il seguente codice nella procedura MouseDown dell'Image

[code:]

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Drag
End Sub

Non funziona interamente ma può servirti come aiuto.