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

Private Sub Toolbar1_MouseMove(Button As Integer, Shift As Integer, x As Single, Y As Single)
If Not Moving Then Exit Sub
Me.Move Me.Left + (x - StartX), Me.Top + (Y - StartY)
End Sub

Private Sub Toolbar1_MouseUp(Button As Integer, Shift As Integer, x As Single, Y As Single)
Moving = False
End Sub