Public Sub CreateToolBar()
Dim pDoc As IDocument
Dim pCmdBars As ICommandBars
Dim pCmdBar As ICommandBar
Set pDoc = Application.Document
Set pCmdBars = pDoc.CommandBars
Set pCmdBar = pCmdBars.Create("MyToolBar", esriCmdBarTypeToolbar)
' The built in ArcID module is used to find the ArcMap commands.
pCmdBar.Add ArcID.File_AddData
pCmdBar.Add ArcID.PanZoom_FullExtent
pCmdBar.Dock esriDockRight
End Sub