'Abgekürzte XML-Datei
<?xml version="1.0" encoding="ISO-8859-1" ?>
<skin xmlns="http://tempuri.org/skin3.xsd">
	<owner name="frmMain">
		<form name="window">
			<location>"10x10"</location>
			<back_color>#B1B1B1</back_color>
		</form>
		<button name="cmdGamma">
			<location>600; 48</location>
			<size>220; 48</size>
		</button>
		<label name="lblDateTime">
			<font>Arial; 12; style=Bold</font>
			<font_color>#F3F1F1</font_color>
			<back_color>#B1B1B1</back_color>
		</label>
	</owner>
	<owner name="frmExit">
		<form name="window">
			<location>100x100</location>
			<size>400x200</size>
			<bgfile>C:\Do..ackground2.png</bgfile>
			<back_color>#B1B1B1</back_color>
		</form>
		<button name="cmdAbbrechen">
			<location>768; 560</location>
			<size>40; 32</size>
		</button>
		<label name="lblFragezeichen">
			<location>376; 16</location>
			<size>400; 24</size>
		</label>
	</owner>
</skin>

<label name="lblDateTime">

	<owner name="frmMain">

	<owner name="frmExit">

    Private Sub Read_XMLFile(ByVal sFile As String)
        Try
            ds.Clear()
            ds.ReadXml(sFile)
            RefreshResults("true")
        Catch e As Exception
            MessageBox.Show(e.Message)
        End Try
    End Sub
 
   Private Sub RefreshResults(ByVal filter As String)
        Try
            Dim x As Integer
            For x = 0 To ds.Tables.Count.ToString - 1
                Dim table As DataTable = ds.Tables(x)
                Dim rows As DataRow() = table.Select(filter)
                For Each row As DataRow In rows
                    Select Case row.Table.TableName.ToString
 
                        Case "owner"
                            varOwner.Form = row("name").ToString()
                            varOwner.Button = row("name").ToString()
                        Case "form"
                            Dim item As ListViewItem = New ListViewItem(x)
                            item.SubItems.Add(row("name").ToString())
                            item.subitems.Add(ds.Tables(0).Columns(0).ToString)
                            item.SubItems.Add(row("location").ToString())
                            item.SubItems.Add(row("size").ToString())
                            item.SubItems.Add(row("bgfile").ToString())
                            item.SubItems.Add("--")
                            item.SubItems.Add("--")
                            item.SubItems.Add("--")
                            List_Forms.Items.Add(item)
                        Case "button"
                            (....................)
(End................)