Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As _
     System.Windows.Forms.ToolBarButtonClickEventArgs) Handles _
     ToolBar1.ButtonClick
 
        If ToolBar1.Buttons.Item(0).Pushed Then       'Exit-Button
            Me.Close()
        End If
 
        If ToolBar1.Buttons.Item(1).Pushed = True Then         'X-Button
            Dim X As New Form2
            X.Show()
        End If
 
        If ToolBar1.Buttons.Item(2).Pushed = True Then         'Y-Button
            Dim Y As New Form3
            Y.Show()
        End If
 
    End Sub