appunto... hai sbagliato ad adattare il codice...

l'errore è qui:

codice:
Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Command1 = 1 Then  '<---questo deve riferirsi al parametro restituito dalla Sub di Evento!
    StartX = x
    StartY = Y
    Moving = True
End If
End Sub
e va modificato così:

codice:
Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Button = 1 Then
    StartX = x
    StartY = Y
    Moving = True
End If
End Sub
Boolean