把工具按鈕添加到工具欄之前你需要創建一個新的工具欄，創建新的工具欄需調用Add方法新建一個Toolbar對象并把它添加到Toolbars集合中。要把按鈕添加到新的工具欄中，必須調用Toolbar對象中的AddToolbarButton方法，該方法在調用中需要四個變元來傳遞參數。

第一個變元Index參數決定添加的按鈕在工具欄中的位置。

第二個邊緣Name參數決定了按鈕提示信息，類似Tooltip一樣，當鼠標懸停在按鈕上時顯示按鈕的名字。

第三個變元HelpString參數，決定了顯示在AutoCAD左下角狀態欄上的信息字符串。

第四個變元Macro參數，這是一個和按鈕相關聯的宏，它會出現在命令行上，所以要運行這個宏，必須要用vbarun來開始而用返回量來結束。

一下代碼展示了創建自定義工具條的過程。

Public Sub createtoolbar()
    Dim menugroupobject As AcadMenuGroup
    Dim toolbarobject As AcadToolbar
    Dim toolbaritemobject As AcadToolbarItem
    Dim buttonobject As AcadToolbarItem
    Set menugroupobject = ThisDrawing.Application.MenuGroups.Item(0)
    Set toolbarobject = menugroupobject.Toolbars.Add("new dimensions")
    Set buttonobject = toolbarobject.AddToolbarButton(0, "Align", "alignment dimension", "-vbarun thisdrawing.aligneddimension" & vbCr)
    Set buttonobject = toolbarobject.addtoolvarbutton(1, "ordinate", "rodinate dimension", "-vbarun thisdrawing.ordinatedimension" & vbCr)
    Set buttonobject = toolbarobject.AddToolbarButton(2, "rotate", "rotate dimension", "-vbarun thisdrawing.rotatedimension" * vbCr)
    Set buttonobject = toolbarobject.addsepatatot(2)
    Set buttonobject = toolbarobject.AddToolbarButton(4, "angular", "angular dimension", "-vbarun thisdrawing.angular dimension" & vbCr)
    Set buttonobject = toolbarobject.AddToolbarButton(5, "diametric", "diametric dimension", "-vbarun thisdrawing.diametric dimension" & vbCr)
    Set buttonobject = toolbarobject.AddToolbarButton(6, "radial", "radial dimension", "-vbarun thisdrawing.radialdimension" & vbCr)
    toolbarobject.Visible = True
End Sub

創建好工具欄后還需要將按鈕添加到自定義工具條上，并給按鈕添加一個合適的圖標。