On Error Goto fehlerxxx

 Private Sub btn_hinzufuegen_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles btn_hinzufuegen.Click
        Dim druckernamecomplet As Object
 
        btn_hinzufuegen.Enabled = False
        fortschritt.Visible = True
        fortschritt.Value = 10
        If txt_druckername.Text = "" Then
            MsgBox("Bitte geben Sie einen Druckernamen ein!")
            btn_hinzufuegen.Enabled = True
            fortschritt.Value = 0
            fortschritt.Visible = False
            txt_druckername.Focus()
        Else
 
            Dim net As Object
            net = CreateObject("WScript.Network")
            fortschritt.Value = 20
            'On Error GoTo Fehler
            fortschritt.Value = 35
            'Drucker anlegen
            net.addwindowsprinterconnection("\\" & txt_printserver.Text & "\" & _
              txt_druckername.Text)
            fortschritt.Value = 50
 
            If chkbox_standard.Checked = True Then
                fortschritt.Value = 70
                'Hier geht es weiter wenn Standarddrucker
                'On Error GoTo Fehler2
                druckernamecomplet = "\\" & txt_printserver.Text & "\" & _
                  txt_druckername.Text
                fortschritt.Value = 75
                'MsgBox("Versuche Standarddrucker auf: " & druckernamecomplet & 
                ' " zu setzen.")
                net.setdefaultprinter(druckernamecomplet)
                fortschritt.Value = 85
                MsgBox("Der neue Standarddrucker lautet: " & druckernamecomplet)
                fortschritt.Value = 100
                MsgBox("Der Drucker " & txt_druckername.Text & " wurde" & _
                  "hinzugefügt!")
                GoTo AnwendungSchließen
            Else
                'hier geht es weiter wenn kein Standarddrucker
                fortschritt.Value = 100
                MsgBox("Der Drucker " & txt_druckername.Text & " wurde" & _
                  "hinzugefügt!")
                GoTo AnwendungSchließen
            End If
 
Fehler:
            Dim dlgRes As DialogResult
            dlgRes = MessageBox.Show("Fehler - Bitte überprüfen Sie den" & _
              "Druckernamen! Möchten Sie eine meldung an die EDV senden?", "1 X" & _
              "Fehler", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If dlgRes = DialogResult.Yes Then
                Process.Start("O:\system\Screen-To-Service.exe")
                GoTo Ende
            End If
            GoTo Ende
Fehler2:
            dlgRes = MessageBox.Show("Fehler - Bitte überprüfen Sie den" & _
              "Druckernamen! Möchten Sie eine meldung an die EDV senden?", "2 X" & _
              "Fehler", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
            If dlgRes = DialogResult.Yes Then
                Process.Start("O:\system\Screen-To-Service.exe")
                GoTo Ende
            End If
            GoTo Ende
 
 
Ende:
            btn_hinzufuegen.Enabled = True
            fortschritt.Value = 0
            fortschritt.Visible = False
            GoTo OhneSchließen
 
        End If
 
AnwendungSchließen:
        Close()
 
 
OhneSchließen:
    End Sub