Private Sub Form_Load()
Toolbar1.Buttons(1).Image = LoadPicture
Toolbar1.Buttons(2).Image = LoadPicture
End Sub
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
If Button.Index = 1 Then
PopupMenu MnuFile, vbPopupMenuLeftAlign Or vbPopupMenuLeftButton, Button.Left, Button.Top + Button.Height
End If
If Button.Index = 2 Then
PopupMenu MnuHelp, vbPopupMenuLeftAlign Or vbPopupMenuLeftButton, Button.Left, Button.Top + Button.Height
End If
End Sub