Hello Can someone tell me how to save the controls and its properties on a
form to an xml file

I have problems when it come to the Font, Color, Cursor ... properties

heres`s an ex of what I do:

Private Sub SaveCtrlsProp()

   Dim cCtrl As Control

   Dim cCtrlProperty As PropertyCollection

   Dim tType As Type

   Dim miMemberInfo As MemberInfo

   For Each cCtrl In Me.Controls

       Dim props() As PropertyInfo = cCtrl.GetType.GetProperties

       Dim j As Integer = 0

       Do While (j < props.Length)

       Dim membInfo As MemberInfo = props(j).PropertyType

       If (props(j).CanWrite AndAlso (props(j).CanRead AndAlso
(props(j).Name <> "ReadOnly"))) Then

           moXML.SaveSetting(cCtrl.GetType.Name, props(j).Name(),
props(j).GetValue(cCtrl, Nothing))

       End If

       j += 1

   Loop

Next

End Sub

' ******************************************************************

Private Sub SaveSetting(ByVal ObjectName As String, ByVal PropertyName As
String, ByVal PropertyValue As String)

Dim xnObject As XmlNode

Dim xnProperty As XmlNode

Dim xnAttr As XmlAttribute

'check the document exists, create if not

If m_xmlDocument.DocumentElement Is Nothing Then

Try

m_xmlDocument.LoadXml("<?xml version=""1.0"" encoding=""UTF-8""?>" &
ControlChars.CrLf & _

"<FormSettings>" & ControlChars.CrLf & "</FormSettings>")

Catch e1 As Exception

Debug.WriteLine("_SaveSetting - Error creating Document: " & e1.ToString)

End Try

End If

xnObject = m_xmlDocument.SelectSingleNode("//Object[@Name='" & ObjectName &
"']")

'check the Object exists, create if not

If xnObject Is Nothing Then

Try

'create the new Object node...

xnObject = m_xmlDocument.CreateNode(XmlNodeType.Element, "Object", "")

'add the Name attribute

xnAttr = m_xmlDocument.CreateAttribute("Name")

xnAttr.Value = ObjectName

xnObject.Attributes.SetNamedItem(xnAttr)

'get the root XML node and add the new node to the document

Dim xnRoot As XmlNode = m_xmlDocument.DocumentElement

xnRoot.AppendChild(xnObject)

xnRoot = Nothing

Catch e2 As Exception

Debug.WriteLine("_SaveSetting - Error creating Object: " & e2.ToString)

End Try

End If

xnProperty = xnObject.SelectSingleNode("descendant::Property[@Name='" &
PropertyName & "']")

'check the Property exists, create if not

If xnProperty Is Nothing Then

Try

'create the new Property node...

xnProperty = m_xmlDocument.CreateNode(XmlNodeType.Element, "Property", "")

'add the Name attribute

xnAttr = m_xmlDocument.CreateAttribute("Name")

xnAttr.Value = PropertyName

xnProperty.Attributes.SetNamedItem(xnAttr)

'add the Value attribute

xnAttr = m_xmlDocument.CreateAttribute("Value")

xnAttr.Value = PropertyValue

xnProperty.Attributes.SetNamedItem(xnAttr)

'add the new node to its Object

xnObject.AppendChild(xnProperty)

Catch e3 As Exception

Debug.WriteLine("_SaveSetting - Error creating Property: " & e3.ToString)

End Try

Else

xnProperty.Attributes("Value").Value = PropertyValue

End If

'save changes

Try

m_xmlDocument.Save(XMLFileName)

Catch e4 As Exception

Debug.WriteLine("_SaveSetting - Error Saving File: " & e4.ToString)

End Try

xnProperty = Nothing

xnObject = Nothing

End Sub