Dim i As Integer
Dim InstallierteDrucker As String
 
                For i = 0 To _
                  System.Drawing.Printing.PrinterSettings.InstalledPrinters.Cou_
                  nt - 1
                    InstallierteDrucker =  _ _
                    System.Drawing.Printing.PrinterSettings.InstalledPrinters.I_
                    tem(i)
 
                    Me.ComboBoxDruckerSeite1.Items.Add(InstallierteDrucker)
                    Me.ComboBoxDruckerSeite2.Items.Add(InstallierteDrucker)
                    Me.ComboBoxDruckerSeiteN.Items.Add(InstallierteDrucker)
                Next
 
                Me.ComboBoxDruckerSeite1.SelectedIndex = 0
                Me.ComboBoxDruckerSeite2.SelectedIndex = 0
                Me.ComboBoxDruckerSeiteN.SelectedIndex = 0

Private Sub BeiDruckergewählt( _
                        ByVal sender As System.Object, _
                        ByVal e As System.EventArgs) _
                    Handles ComboBoxDruckerSeite1.SelectedIndexChanged, _
                            ComboBoxDruckerSeite2.SelectedIndexChanged, _
                            ComboBoxDruckerSeiteN.SelectedIndexChanged
 
            Dim Auswahl As Integer = Nothing
 
 
            If TypeOf sender Is System.Windows.Forms.ComboBox Then
                Select Case CType(sender, System.Windows.Forms.ComboBox).Name()
 
                    Case Me.ComboBoxDruckerSeite1.Name
                        Me.ListBoxSchachtSeite1.Items.Clear()
                        HolePapierschächte( _
                          Me.ComboBoxDruckerSeite1.SelectedItem.ToString, _
                          Me.ListBoxSchachtSeite1)
                        Auswahl = CInt(Me.ComboBoxDruckerSeite1.SelectedIndex)
                    Case Me.ComboBoxDruckerSeite2.Name
                        Me.ListBoxSchachtSeite2.Items.Clear()
                        HolePapierschächte( _
                          Me.ComboBoxDruckerSeite2.SelectedItem.ToString, _
                          Me.ListBoxSchachtSeite2)
                        Auswahl = CInt(Me.ComboBoxDruckerSeite2.SelectedIndex)
                    Case Me.ComboBoxDruckerSeiteN.Name
                        Me.ListBoxSchachtSeiteN.Items.Clear()
                        HolePapierschächte( _
                          Me.ComboBoxDruckerSeiteN.SelectedItem.ToString, _
                          Me.ListBoxSchachtSeiteN)
                        Auswahl = CInt(Me.ComboBoxDruckerSeiteN.SelectedIndex)
                End Select
 
                If Me.CheckBoxAlleDruckerwechseln.Checked Then
                    Me.ComboBoxDruckerSeite1.SelectedIndex = Auswahl
                    Me.ComboBoxDruckerSeite2.SelectedIndex = Auswahl
                    Me.ComboBoxDruckerSeiteN.SelectedIndex = Auswahl
                End If
 
 
            End If
 
        End Sub