Imports System.IO
Imports System.IO.IsolatedStorage
Imports System.Xml
Imports System.Xml.Serialization
 
Public Class INIfile
 
 'Hier Deine Variablen, die Du in der INI einfügen möchtest, in der Struktur  
 ' deklarieren 
   Public Class IniStructure
      Public Status As boolean
      Public BackColor as Color
      Public ForeColor as Color
   End Class
 
   Private IniData As Object
 
 'Hier Deine Variablen nochmals deklarieren , diese werden im Objekt öffentlich 
 ' verwendet, um sie zur Runtime anpassen zu können
   Public Status As Boolean
   Public MyBackColor as Color
   Public MyForeColor as Color
 
   Public Sub LoadXMLClientConfig()
 
      Dim isf As File
      Dim isfs As FileStream
      Dim sr As StreamReader
 
      Try
 'Deinen  Konfigurationsdatei öffnen hier: "AppData.cfg", kannst Du auch mit 
 ' Pfadangaben eintragen, Name ist frei
 
         isfs = isf.OpenRead("AppData.cfg")
         sr = New StreamReader(isfs, System.Text.Encoding.UTF8)
 
         Dim xmlser As New XmlSerializer(GetType(IniStructure))
         IniData = CType(xmlser.Deserialize(sr), IniStructure)
 
      Catch ex As Exception
 
         ' Init Einstellungen beim ersten Aufruf
         IniData = New IniStructure
         IniData.Status = 0
         IniData.BackColor = Color.White
         IniData.ForeColor = Color.Black
 
      Finally
         If Not sr Is Nothing Then sr.Close()
         If Not isfs Is Nothing Then isfs.Close()
      End Try
 
 Nach dem Einlesen noch die Daten an Deine Variablen zuweisen
 
      If Not IniData Is Nothing Then
         Status = IniData.Status
         MyBackColor = IniData.BackColor
         MyForeColor = IniData.ForeColor
      End If
 
   End Sub
 
 
   Public Sub SaveXMLClientConfig()
 
      If IniData Is Nothing Then Exit Sub
 
      Dim isf As File
      Dim isfs As FileStream
      Dim sw As StreamWriter
 
      Try
 
 'Deine  Konfigurationsdatei schreiben hier: "AppData.cfg", kannst Du auch mit 
 ' Pfadangaben eintragen, Name ist frei
 
         isfs = isf.Create("AppData.cfg")
         sw = New StreamWriter(isfs, System.Text.Encoding.UTF8)
 
         ' Parametereinstellungen ermitteln für Speicherung
 'Hier Deine Variablen in der INI-Struktur speichern
         IniData.Status = Status
         IniData.BackColor = MyBackColor
         IniData.ForeColor = MyForeColor
 
         Dim xmlser As New XmlSerializer(GetType(IniStructure))
         xmlser.Serialize(sw, IniData)
 
      Catch ex As System.Exception
         MsgBox("Einstellungen konnten nicht gepeichert werden: " + ex.Message, _
           MsgBoxStyle.Exclamation, "ACHTUNG")
      Finally
         If Not sw Is Nothing Then sw.Close()
         If Not isfs Is Nothing Then isfs.Close()
      End Try
 
   End Sub
 
End Class
 
 Über Button oder bei Programmstart bzw FormLoad die Konfiguration lesen
Public Sub Button1_Click Handles Button1.Click
      Dim Configuration as New INIFile       
      Dim MyStatus as Boolean
      Dim MyBackColor as Color
      Dim MyForeColor as Color
 
'Datei einlesen
     Configuration.LoadXMLClientConfig()
'Variablen auslesen    
     MyStatus = Configuration.Status
     MyBackColor = Configuration.MyBackColor
     MyForeColor = Configuration.MyForeColor
End Sub
 
 Über Button oder bei Programmende bzw FormClosing die Konfiguration speichern
Public Sub Button2_Click Handles Button2.Click
      Dim Configuration as New INIFile       
      Dim MyStatus as Boolean
      Dim MyBackColor as Color
      Dim MyForeColor as Color
 
      MyStatus = True
      MyBackColor = Color.Red
      MyForeColor = Color.Yellow
 
'Variablen im IniObjekt speichern
     Configuration.Status  = MyStatus 
     Configuration.MyBackColor = MyBackColor
     Configuration.MyForeColor = MyForeColor
'Datei einlesen
     Configuration.SaveXMLClientConfig()
 
End Sub

Ciao

J?rgen

PS: geht nicht gibt's nicht