For Each xnode In xDoc.DocumentElement
            Dim lvi As ListViewItem = frmMatEdit.lstvMat.Items.Add(xnode.Name)
            For Each xSubNode In xnode.ChildNodes
                Select Case xSubNode.Name
                    Case "Beschreibung"
                        lvi.SubItems.Add(xSubNode.InnerText)
                    Case "EKP"
                        lvi.SubItems.Add(xSubNode.InnerText)
                    Case "VKP"
                        lvi.SubItems.Add(xSubNode.InnerText)
                End Select
            Next
        Next