This example moves the custom command bar named "Custom" from its docked position along the top of the window to the left edge of the window.
Set myBar = CommandBars("Custom")
With myBar
.Position = 1
.RowIndex = 2
.Left = 0
End With
This example displays the Office Assistant and moves it to the specified position within the application window.
With Assistant
.Visible = True
.Left = 300
.Top = 300
End With