Friend Sub Buttons_init()
 
        ToolBar1 = New System.Windows.Forms.ToolBar
        ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
        ToolBar1.ButtonSize = New System.Drawing.Size(32, 32)
        ToolBar1.DropDownArrows = True
        ToolBar1.ImageList = Me.ImageList1
        ToolBar1.Location = New System.Drawing.Point(0, 0)
        ToolBar1.Name = "ToolBar1"
        ToolBar1.ShowToolTips = True
        ToolBar1.Size = New System.Drawing.Size(936, 38)
        ToolBar1.TabIndex = 1
 
        ToolBarButton1 = New System.Windows.Forms.ToolBarButton
        ToolBarButton2 = New System.Windows.Forms.ToolBarButton
        ToolBarButton3 = New System.Windows.Forms.ToolBarButton
        ToolBarButton4 = New System.Windows.Forms.ToolBarButton
        ToolBarButton5 = New System.Windows.Forms.ToolBarButton
        ToolBarButton6 = New System.Windows.Forms.ToolBarButton
        ToolBarButton7 = New System.Windows.Forms.ToolBarButton
        ToolBarButton8 = New System.Windows.Forms.ToolBarButton
        ToolBarButton9 = New System.Windows.Forms.ToolBarButton
 
        'ToolBarButton1
        '
        If Globale_funktionen.Freigabe("1") = True Then
            ToolBarButton1.ImageIndex = 0
            ToolBarButton1.Text = "Auftragsliste"
            Me.ToolBar1.Buttons.Add(ToolBarButton1)
        End If
 
        '
        'ToolBarButton2
        '
        If Globale_funktionen.Freigabe("2") = True Then
            ToolBarButton2.ImageIndex = 1
            ToolBarButton2.Text = "Komponenten"
            Me.ToolBar1.Buttons.Add(ToolBarButton2)
        End If
        'ToolBarButton3
        '
        If Globale_funktionen.Freigabe("3") = True Then
            ToolBarButton3.ImageIndex = 2
            ToolBarButton3.Text = "Mawis"
            Me.ToolBar1.Buttons.Add(ToolBarButton3)
        End If
        '
        'ToolBarButton4
        '
 
        If Globale_funktionen.Freigabe("4") = True Then
            ToolBarButton4.ImageIndex = 3
            ToolBarButton4.Text = "Maschinen"
            Me.ToolBar1.Buttons.Add(ToolBarButton4)
        End If
        'ToolBarButton5
        '
        If Globale_funktionen.Freigabe("5") = True Then
            ToolBarButton5.ImageIndex = 7
            ToolBarButton5.Text = "Anleitungen"
            Me.ToolBar1.Buttons.Add(ToolBarButton5)
        End If
        '
        'ToolBarButton6
        '
        If Globale_funktionen.Freigabe("6") = True Then
            ToolBarButton6.ImageIndex = 5
            ToolBarButton6.Text = "Wartung"
            Me.ToolBar1.Buttons.Add(ToolBarButton6)
        End If
        '
        'ToolBarButton7
        '
        If Globale_funktionen.Freigabe("7") = True Then
            ToolBarButton7.ImageIndex = 8
            ToolBarButton7.Text = "Intranet"
            Me.ToolBar1.Buttons.Add(ToolBarButton7)
        End If
        'ToolBarButton8
        '
        If Globale_funktionen.Freigabe("8") = True Then
            ToolBarButton8.ImageIndex = 9
            ToolBarButton8.Text = "Einstellungen"
            Me.ToolBar1.Buttons.Add(ToolBarButton8)
        End If
 
        'ToolBarButton9
        '
        If Globale_funktionen.Freigabe("9") = True Then
            ToolBarButton9.ImageIndex = 10
            ToolBarButton9.Text = "TPM"
            Me.ToolBar1.Buttons.Add(ToolBarButton9)
        End If
 
        Me.Controls.Add(ToolBar1)
 
    End Sub