Public Class CMI
        Public Text As String
        Public Path As String
        Public Folder As Boolean
        Public Separator As Boolean
        Public Parent As String
        Public TSMI As ToolStripMenuItem
        Public OpenWith As String
        Public OpenArgs As String
        Public Checked As Integer
    End Class
 
    Public Class CMIs
        Public Shared CMIs As New List(Of CMI)
    End Class
 
    Public Sub SaveSettings()
        Dim t As New List(Of CMI)
        t = CMIs.CMIs 'CMIs.CMIs ist bereits gefüllt mit Werten
        Dim serializer As New XmlSerializer(GetType(CMIs))
        Dim writer As New StreamWriter(SettingFile) 'Settingsfile ist ein 
        ' String zur .xml
        serializer.Serialize(writer, t)
    End Sub