要浮动工具栏，请使用工具栏的 Float 方法。Float 方法需要输入三个参数： Top、Left 和 NumberFloatRows。Top 和 Left 参数用于指定工具栏顶部和左边的像素位置。NumberFloatRows 参数用于指定创建水平工具栏所需的行的数量。此数字必须大于等于 1。工具栏的按钮将平均分布在指定的行数上。对于垂直对齐的工具栏，此值指定所需的列数。
要固定工具栏，请使用工具栏的 Dock 方法。Dock 方法需要输入三个参数：Side、Row 和 Column。Side 参数用于指定固定操作中用于定位的工具栏的边。用户可以指定工具栏的上、下、左、右各边。Row 和 Column 参数用于指定要在此行或列固定工具栏时，固定工具栏现有的行和列编号。
可以使用 DockStatus 特性查询工具栏是否被固定。如果工具栏是固定的，DockStatus 特性将返回 TRUE；如果工具栏是浮动的，则返回 FALSE。
本例创建一个包含三个按钮的新工具栏，然后显示工具栏并将其固定在屏幕的左边。
Sub Ch6_DockToolbar()
Dim currMenuGroup As AcadMenuGroup
Set currMenuGroup = ThisDrawing.Application. _
MenuGroups.Item(0)
' 创建新工具栏
Dim newToolbar As AcadToolbar
Set newToolbar = currMenuGroup.Toolbars. _
Add("TestToolbar")
' 向新工具栏添加三个按钮。
' 三个按钮都将附着相同的宏。
Dim newButton1 As AcadToolbarItem
Dim newButton2 As AcadToolbarItem
Dim newButton3 As AcadToolbarItem
Dim openMacro As String
' 给宏指定“ESC ESC _open”的 VB 等价值
openMacro = Chr(3) + Chr(3) + "_open "
Set newButton1 = newToolbar.AddToolbarButton _
("", "NewButton1", "Open a file.", openMacro)
Set newButton2 = newToolbar.AddToolbarButton _
("", "NewButton2", "Open a file.", openMacro)
Set newButton3 = newToolbar.AddToolbarButton _
("", "NewButton3", "Open a file.", openMacro)
' 显示工具栏
newToolbar.Visible = True
' 将工具栏固定在屏幕的左边。
newToolbar.Dock acToolbarDockLeft
End Sub