Option Explicit
Dim ToolBarButtons() As ToolbarButtonType

Sub Form_Load ()
   PictToolBar.ScaleMode = 3          ' Pixel
   PictToolBar.ScaleHeight = 28       ' Hoehe der Toolbar
   ReDim ToolBarButtons(0)
End Sub

Sub MnuSub_Click (index As Integer)
   On Error Resume Next
   Select Case index
   Case 1
       Dim ToolBarsCount As Integer
       ToolBarsCount = UBound(ToolBarButtons) + 1
       ReDim Preserve ToolBarButtons(ToolBarsCount)
       ToolbarAddButton PictToolBar, ToolBarButtons(ToolBarsCount), ToolBarsCount * 24, ToolBarsCount, PictBitmaps
   Case 2
       ToolBarHideButton PictToolBar, ToolBarButtons(2), PictBitmaps
   Case 3
       ToolBarGrayButton PictToolBar, ToolBarButtons(3), PictBitmaps
   Case Else
      Unload Me
   End Select
End Sub

Sub PictToolBar_Click ()
   '
   '
   '
   Dim ButtonNr As Integer
   ButtonNr = ToolBarGetClicked(PictToolBar, ToolBarButtons())
   If ButtonNr > 0 Then MsgBox "Hi, there was then " + Str(ButtonNr) + " Button Clicked)"
End Sub

Sub PictToolBar_MouseDown (Button As Integer, Shift As Integer, x As Single, y As Single)
    ToolBarMousedown PictToolBar, ToolBarButtons(), x, y, PictBitmaps
End Sub

Sub PictToolBar_MouseUp (Button As Integer, Shift As Integer, x As Single, y As Single)
   ToolBarMouseUp PictToolBar, ToolBarButtons(), x, y, PictBitmaps
End Sub