Set cbrCommandBars = vsoApplication.CommandBars
    ' Add a new CommandBar object that only exists through
    ' this session of Visio.
    Set cbrCommandBar = cbrCommandBars.Add( _
        Name:=strCommandBarName, _
        Position:=msoBarTop, Temporary:=True)
    ' Do not allow users to modify the new CommandBar.
    cbrCommandBar.Protection = msoBarNoCustomize
    ' Display the command bar using the Context property.
    cbrCommandBar.Context = Str(VisUIObjSets.visUIObjSetDrawing) & "*"
    ' Add a button to the bar.
    Set cbbCommandBarButton = cbrCommandBar.Controls.Add( _
        Type:=msoControlButton)
    ' Make it run a VBA Macro.
    With cbbCommandBarButton
        .Caption = "Visual Basic Macro"
        .TooltipText = "Click this button to run " & _
            "'ThisDocument.HelloWorld' macro if it exists"
        ' Use the Tag property for context switching and
        ' for use with the FindControl method.
        .Tag = "VBMacro"
        ' Get an internal icon for the button.
        .FaceID = 7075
        ' Use OnAction to run a VBA macro contained in
        ' this document.
         .OnAction = "ThisDocument.HelloWorld"
    End With

quote:

---

Можно сделать Anchored Window

---

Public Sub Stock()
   Dim wAddon As Visio.Window
   Set wAddon = ActiveWindow.Windows.Add("Stock", visWSVisible, _
   visAnchorBarAddon, , , 300, 210)
   Dim pnLeft As Long, pnTop As Long, pnWidth As Long, pnHeight As Long
wAddon.GetWindowRect pnLeft, pnTop, pnWidth, pnHeight
wAddon.SetWindowRect pnLeft, pnTop, pnWidth + 1, pnHeight

End Sub

Public m_Base As Base