LO CONSIGO MEDIANTE ESTA API Y POSTERIORMENTE CON EL EVENTO MOUSEMOVE:
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Sub Toolbar1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
ReleaseCapture
SendMessage Toolbar1.hWnd, &HA1, 2, 0&
End Sub
P E R O NO HAY UN TOOLBAR MAS VISUAL TIPO EXCEL,ETC... EL CUAL SE PUEDE CAMBIAR DE TAMAÑO ETC...