Jabaco Source

Option Explicit
Implements ActionListener
Private Const PreferredBtnHeight As Integer = 26
Private Const PreferredBtnWidth  As Integer = 26
Public Event ButtonClick(ActionCmd As String)
Public Sub ToolBar
   Me.setVisible(True)   
   Me.setLocation(0, 0)   
   Me.setFloatable(False)
End Sub
Public Sub AddButton(Text As String, ToolTip As String, ActionCmd As String)
   Dim btn As New JButton
   btn.setText(Text)
   btn.addActionListener(Me)
   btn.setToolTipText(ToolTip)
   btn.setActionCommand(ActionCmd)   
   btn.setSize(PreferredBtnWidth, PreferredBtnHeight)
   Me.add(btn)
End Sub
Public Sub actionPerformed(arg2 As ActionEvent)
   RaiseEvent ButtonClick(arg2.getActionCommand)
End Sub

Jabaco Source

Option Explicit
Dim Withevents ToolBar As New ToolBar
Public Sub Usercontrol_Initialize()
   Me.add(ToolBar)
   ToolBar.setSize(Me.Width, 26)
   ToolBar.AddButton("ABC", "dings ABC", "ABC")
   ToolBar.AddButton("DEF", "dings DEF", "DEF")      
End Sub
Sub ToolBar_ButtonClick(ActionCmd As String)
   Select Case ActionCmd'.getActionCommand 
   Case "ABC": MsgBox("The ABC Button was pressed in " & "UserControl1")
   Case "DEF": MsgBox("The DEF Button was pressed in " & "UserControl1")
   End Select
End Sub

Jabaco Source

Option Explicit
Dim Withevents TB As New ToolBar
Public Sub Form_Load()    
   Me.add(TB)   
   TB.setSize(Me.Width, 26)
   TB.AddButton("ABC", "dings ABC", "ABC")
   TB.AddButton("DEF", "dings DEF", "DEF")  
End Sub
Sub TB_ButtonClick(ActionCmd As String)
   Select Case ActionCmd'.getActionCommand 
   Case "ABC": MsgBox("The ABC Button was pressed in " & "Form1")
   Case "DEF": MsgBox("The DEF Button was pressed in " & "Form1")
   End Select
End Sub