Public Class Test_Klasse
 
 
    Public TextBox_Name as TextBox
    Public TextBox_Beschreibung as TextBox
 
End Class

Function Obj_Save(ByVal File_Url As String, ByVal Obj As Object) As Boolean
        Obj_Save = False
        'XML Serialization
        Dim Xml_Datei As New IO.StreamWriter(File_Url, False)
        Dim XmlSer As New Xml.Serialization.XmlSerializer(Obj.GetType())
        XmlSer.Serialize(Xml_Datei, Obj)
        Xml_Datei.Close()
        Obj_Save = True
    End Function