Salve a tutti....come da oggetto,voi come fareste?
Io ho fatto un tentativo,il codice è questo qui sotto...ma il risultato non è entusiasmante...il primo spostamento lo esegue correttamente....ma se lo si sposta una seconda volta si sposta dove gli pare comparendo e scomparendo
:master:

codice:
Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)

If Button = 1 Then
   Image1.Left = X
   Image1.Top = Y
End If
End Sub