<Serializable()> _
    Public Class Settings
        Public Property chkbx1 As Boolean = True
        Public Property chkbx2 As Boolean = False
        Public Property chkbx3 As Boolean = True
        Public Property txtbx1 As String = "Text1"
        Public Property txtbx2 As String = "Text2"
        Public Property txtbx3 As String = "Text3"
        Public Property txtbx4 As String = "Text4"
 
        Private Shared mLock As New Object
 
        Public Sub Save(ByVal fileName As String)
            Dim mySerializer As New System.Xml.Serialization.XmlSerializer( _
              GetType(Settings))
 
            Using myStream As New IO.FileStream(fileName, IO.FileMode.Create)
                mySerializer.Serialize(myStream, Me)
                myStream.Flush()
                myStream.Close()
            End Using
        End Sub
 
        Public Shared Function Load(ByVal fileName As String) As Settings
            SyncLock mLock
                Dim mySerializer As New System.Xml.Serialization.XmlSerializer( _
                  GetType(Settings))
                Dim myResult As Settings
 
                Using myStream As New IO.FileStream(fileName, IO.FileMode.Open)
                    myResult = mySerializer.Deserialize(myStream)
                End Using
 
                Return myResult
            End SyncLock
        End Function
 
    End Class

    Dim mySettings as Settings = Settings.Load("Dateiname")

    mySettings.Save("Dateiname")