Private Sub Equalizer_Load(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles MyBase.Load
 
        Bass.BASS_Init(-1, 192000, BASSInit.BASS_DEVICE_CPSPEAKERS, _
          IntPtr.Zero, Nothing)
 
        Dim eq As New EqualizerClass
 
        eq.EQ_Int()
        eq.EQ_Load()
 
        With My.Computer.FileSystem
            Dim folder As String = _
              .SpecialDirectories.CurrentUserApplicationData
            Dim filename As String = "PlayerSettings.txt"
            Dim filepath As String = IO.Path.Combine("C:\PlayerSettings.txt")
            If .FileExists(filepath) Then
                Dim text As String = My.Computer.FileSystem.ReadAllText( _
                  filepath)
                Dim values() As String = text.Split(";"c)
 
                Me.TrackBar1.Value = CInt(values(0))
                Me.TrackBar2.Value = CInt(values(1))
                Me.TrackBar3.Value = CInt(values(0))
                Me.TrackBar4.Value = CInt(values(1))
                Me.TrackBar5.Value = CInt(values(0))
                Me.TrackBar6.Value = CInt(values(1))
                Me.TrackBar7.Value = CInt(values(0))
                Me.TrackBar8.Value = CInt(values(1))
                Me.TrackBar9.Value = CInt(values(0))
                Me.TrackBar10.Value = CInt(values(1))
 
            End If
        End With
    End Sub
 
Private Sub Form2Closing(ByVal sender As Object, _
           ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles _
           Me.FormClosing
        If e.CloseReason = CloseReason.UserClosing Then
            Me.Hide() : e.Cancel = True
 
            'Abrufen der Werte  der Trackbars und als String aufbereiten
            Dim text As String = Me.TrackBar1.Value.ToString & ";" & _
                                 Me.TrackBar2.Value.ToString & ";" & _
            Me.TrackBar3.Value.ToString & ";" & _
            Me.TrackBar4.Value.ToString & ";" & _
            Me.TrackBar5.Value.ToString & ";" & _
            Me.TrackBar6.Value.ToString & ";" & _
            Me.TrackBar7.Value.ToString & ";" & _
            Me.TrackBar8.Value.ToString & ";" & _
            Me.TrackBar9.Value.ToString & ";" & _
            Me.TrackBar10.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( _
                  "C:\PlayerSettings.txt")
                .WriteAllText(filepath, text, False)
            End With
        End If
    End Sub