Public Class Form1
    Inherits System.Windows.Forms.Form
 
#Region " Windows Form Designer generated code "
 
    ' Klasse für die Anwendungsdaten
    Public Class AppData
        Public TBPosition As Integer = 0 ' TrackBar1 Value
    End Class
 
    Private configData As AppData
    Private file As String = "AppConfig.xml"
 
    Protected Overrides Sub OnLoad(ByVal e As System.EventArgs)
        Dim nad As New AppData
        configData = AppDataManager.LoadClientConfig(nad, _
          Environment.GetFolderPath( _
          Environment.SpecialFolder.LocalApplicationData) & "\" & file)
        TrackBar1.Value = configData.TBPosition 
    End Sub
 
    Protected Overrides Sub OnClosing(ByVal e As _
      System.ComponentModel.CancelEventArgs)
        configData.TBPosition = TrackBar1.Value
        AppDataManager.SaveClientConfig(configData, Environment.GetFolderPath( _
          Environment.SpecialFolder.LocalApplicationData) & "\" & file)
    End Sub
End Class

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist