Friend Sub Buttons_init()
 
        Application.DoEvents()
 
        Dim ToolBarButton1 As System.Windows.Forms.ToolBarButton
        Dim ToolBarButton2 As System.Windows.Forms.ToolBarButton
        Dim ToolBarButton3 As System.Windows.Forms.ToolBarButton
        Dim ToolBarButton4 As System.Windows.Forms.ToolBarButton
        Dim ToolBarButton5 As System.Windows.Forms.ToolBarButton
        Dim ToolBarButton6 As System.Windows.Forms.ToolBarButton
        Dim ToolBarButton7 As System.Windows.Forms.ToolBarButton
        Dim ToolBarButton8 As System.Windows.Forms.ToolBarButton
 
 
        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
 
 
        '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
 
    End Sub