Possiamo spostare qualsiesi oggetto che disponga degli eventi generati dal mouse. In questo caso ci serve l' evento MouseDown e MouseMove.

Oggetto sarà l' oggetto da spostare

Public MemX As Single, MemY As Single

Le 2 variabili ci serviranno per ovviare all' errore della posizione del mouse sull' oggetto (teoricamente dovremmo posizionare il mouse sulle coordinate 0;0 dell' oggetto)

Private Sub Oggetto_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
MemX = X
MemY = Y
End Sub

Memorizziame le coordinate precedenti del mouse sull' oggetto

Private Sub Oggetto_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = 1 Then     'pressione del tasto sinistro
        Oggetto.Left = Oggetto.Left + (X - MemX)
        Oggetto.Top = Oggetto.Top + (Y - MemY)
    End If
End Sub

Ogni volta che il mouse viene mosso l' oggetto cambia posizione in base alle cooridinate precedenti e alle coordinare del mouse attuali e a quelle memorizzate precedentemente