'AddHandler ToolBar2.ButtonClick, AddressOf Me.ToolBar2_ButtonClick -> 
   ' das klappt nicht,bzw.das Ereigniss wird nicht ausgelöst
    Public Sub ToolBar2_ButtonClick(ByVal sender As Object, _
    ByVal e As ToolBarButtonClickEventArgs) Handles ?????
        Select Case ToolBar2.Buttons.IndexOf(e.Button)
            Case 0
                Form1.InstForm1.Label23.Text = "1a"
            Case 1
                Form1.InstForm1.Label23.Text = "1b"
            Case 2
                Form1.InstForm1.Label23.Text = "1c"
        End Select
    End Sub

Public Module Variablen
  Public ToolBar2 As New ToolBar