If e.CloseReason = CloseReason.UserClosing Then
     Me.Hide() : e.Cancel = True
 else 
    'Falls die Form von der überg. Form geschlossen wird:
    'Einstellungen speichern
    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 filepath As String = "C:\PlayerSettings.txt"
          .WriteAllText(filepath, text, False)
       End With
End If