Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        Me.Size = New System.Drawing.Size(327, 437)
        Me.TopMost = CheckBox3.Checked
        Dim Standarddrucker As String = ""
        With ComboBox1
            For Each s In Printing.PrinterSettings.InstalledPrinters
                .Items.Add(s)
                If s = PrintDoc.PrinterSettings.PrinterName Then
                    Standarddrucker = s
                End If
            Next s
            If .Items.Count > 0 Then
                '// Standarddrucker markieren
                '   aber nur wenn vorher kein Drucker von dir selektiert wurde
                Dim i As Integer = Me.ComboBox1.FindStringExact( _
                  clsSettings.GetSetting("ComboBox", "Drucker", _
                  "ConfigDatei.xml"))
                If i = -1 Then
                    '// Standarddrucker setzen
                    i = Me.ComboBox1.FindStringExact(Standarddrucker)
                Else
                    '// eigener Drucker wurde gefunden
                End If
                Me.ComboBox1.SelectedIndex = i
            Else
                MessageBox.Show("Es ist kein Drucker installiert!", "Abbruch", _
                  MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
                Me.Close()
            End If
        End With
        PrintDoc.DocumentName = "Druckdokument"
        AddHandler PrintDoc.PrintPage, AddressOf m_pd_PrintPage
        geladen = True
        RadioButton7.TabStop = False
        RadioButton8.TabStop = False
        RadioButton9.TabStop = False
        RadioButton10.TabStop = False
        RadioButton11.TabStop = False
        Me.ComboBox2.SelectedIndex = 0
        Me.ComboBox3.SelectedIndex = 0
        Me.TextBox1.Focus()
    End Sub