Private Sub frmPlayer_FormClosing(sender As Object, e As 
         System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
 
        'Abrufen der Werte  der Trackbars und als String aufbereiten
        Dim text As String = myEqualizer.TrackBar1.Value.ToString & ";" & _
                             myEqualizer.TrackBar2.Value.ToString
 
        'Datei öffnen und schreiben
        With My.Computer.FileSystem
            Dim folder As String = _
              .SpecialDirectories.CurrentUserApplicationData
            Dim filename As String = "PlayerSettings.txt"
            Dim filepath As String = IO.Path.Combine(folder, filename)
            .WriteAllText(filepath, text, False)
        End With
    End Sub
 
 
    Private Sub frmPlayer_Load(ByVal sender As System.Object, _
                   ByVal e As System.EventArgs) Handles MyBase.Load
 
       With My.Computer.FileSystem
         Dim folder As String = .SpecialDirectories.CurrentUserApplicationData
         Dim filename As String = "PlayerSettings.txt"
         Dim filepath As String = IO.Path.Combine(folder, filename)
         If .FileExists(filepath) Then
           Dim text As String = My.Computer.FileSystem.ReadAllText(filepath)
           Dim values() As String = text.Split(";"c)
 
           myEqualizer.TrackBar1.Value = CInt(values(0))
           myEqualizer.TrackBar2.Value = CInt(values(1))
         End If
      End With
   End Sub