Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Try
            If My.Settings.QuellPfad.Length = 0 Then
                My.Settings.QuellPfad = "C:\"
            End If
            If My.Settings.MainLocation.IsEmpty Then
                Me.Size = New System.Drawing.Size(800, 600)
            Else
                Me.Size = My.Settings.MainSize
                Me.Location = My.Settings.MainLocation
            End If
        Catch ex As Exception
            Debug.Assert(False)
            Trace.WriteLine("Fehler: Wo: " & ex.StackTrace & " Was: " & _
              ex.Message)
        End Try
    End Sub

    Private Sub Form1_FormClosing(sender As Object, e As FormClosingEventArgs) _
      Handles MyBase.FormClosing
        Try
            My.Settings.MainSize = Me.Size
            My.Settings.MainLocation = Me.Location
            My.Settings.Save()
        Catch ex As Exception
            Debug.Assert(False)
            Trace.WriteLine("Fehler: Wo: " & ex.StackTrace & " Was: " & _
              ex.Message)
        End Try
    End Sub

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <configSections>
        <sectionGroup name="userSettings" _
          type="System.Configuration.UserSettingsGroup, System," & _
          "Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" >
            <section name="ICE.My.MySettings" _
            type="System.Configuration.ClientSettingsSection, System," & _
            "Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089" _
            allowExeDefinition="MachineToLocalUser" requirePermission="false" />
        </sectionGroup>
    </configSections>
    <startup>
        <supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.7.2" />
    </startup>
    <userSettings>
        <ICE.My.MySettings>
            <setting name="QuellPfad" serializeAs="String">
                <value>C:\</value>
            </setting>
            <setting name="Unterpfad" serializeAs="String">
                <value />
            </setting>
            <setting name="MainLocation" serializeAs="String">
                <value>0, 0</value>
            </setting>
            <setting name="MainSize" serializeAs="String">
                <value>800, 600</value>
            </setting>
        </ICE.My.MySettings>
    </userSettings>
</configuration>

   Private Sub DateiToolStripMenuItem_Click(sender As Object, e As EventArgs) _
     Handles DateiToolStripMenuItem.Click
        FolderBrowserDialog1.ShowDialog()
        My.Settings.QuellPfad = FolderBrowserDialog1.SelectedPath
        If My.Settings.QuellPfad.Substring(My.Settings.QuellPfad.Length - 1, 1) _
          <> "\" Then
            My.Settings.QuellPfad = My.Settings.QuellPfad & "\"
        End If
        verzeichnisListe()
    End Sub