#Region " Private Sub Form1_FormClosing"
    Private Sub Form1_FormClosing(ByVal sender As Object, _
      ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles _
      Me.FormClosing
 
        ' Timer stoppen
        Timer1.Stop()
 
        '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("C:\PlayerSettings.txt")
            .WriteAllText(filepath, text, False)
        End With
    End Sub
 
#End Region
 
 
 
#Region " Private Sub Form1_Load"
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        BassNet.Registration()
 
        Dim eq As New EqualizerClass
        eq.EQ_Int()
        eq.EQ_Load()
 
        Try
            System.IO.File.Copy(CurDir() + "\bass.dll", _
              "C:\Windows\System32\bass.dll")
        Catch
        End Try
        Bass.BASS_Init(-1, 192000, BASSInit.BASS_DEVICE_CPSPEAKERS, _
          IntPtr.Zero, Nothing)
 
        Me.TrackBar1.Minimum = 0
        Me.TrackBar1.Maximum = 10
        Me.TrackBar1.TickFrequency = 1
        Me.TrackBar1.Value = S.GetVolume
 
        Dim OSC(1023) As Integer
        Dim OSCData(1023) As Single
        Dim oLeft, oRight As Single
 
        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)
 
                myEqualizer.TrackBar1.Value = CInt(values(0))
                myEqualizer.TrackBar2.Value = CInt(values(1))
 
            End If
        End With
    End Sub
 
 
#End Region
 
End Class