My.Settings.MitWindowsStarten = chb_MitWindowsStarten.Checked
        My.Settings.StartenAlleBenutzer = rab_startenAlleBenutzer.Checked
        If My.Settings.StartenAlleBenutzer = True Then
            startMenuOrdner = System.Environment.GetFolderPath( _
              Environment.SpecialFolder.CommonStartup)
        Else
            startMenuOrdner = System.Environment.GetFolderPath( _
              Environment.SpecialFolder.Startup)
        End If
        linkpfad = startMenuOrdner & "\" & Application.ProductName & ".lnk"
        If My.Settings.MitWindowsStarten = True Then
            progPfad = Application.ExecutablePath
            ' Verknüpfung anlegen
            If IO.File.Exists(linkpfad) = False Then
                MsgBox(linkpfad & "....." & progPfad & "....." & _
                  Application.CompanyName & "....." & Application.StartupPath)
                MainForm.CreateShortcut(linkpfad, progPfad, "", _
                Application.CompanyName, Application.StartupPath)
            End If
        Else
            ' Verknüpfung löschen
            If IO.File.Exists(linkpfad) = True Then
                IO.File.Delete(linkpfad)
            End If
        End If