'#######################    XML DATEI ÖffNEN  ##############################
    Private Sub tsmÖffnen_Click(sender As Object, e As EventArgs) Handles _
      tsmÖffnen.Click
        '
        Dim XmlDoc As XmlDocument                  ' XML Dokument
        Dim XmlRoot As XmlElement                  'XMLWurzelknoten
        Dim XmlRtb As XmlElement                   ' <RichTextBox>-Knoten
        Dim XmlPb As XmlElement
        Dim RtbName As String         ' Name der RichTextBox in der XML-Datei
        Dim RtfText As String     ' Rtf-Text der RichTextBox in der XML-Datei
        Dim PbName As String
        Dim PbPfad As String
 
        Dim myData As String = ""
        Dim filedialog As New OpenFileDialog
        filedialog.InitialDirectory = Application.StartupPath & "\xmlData"
        filedialog.ShowDialog()
 
        If (filedialog.ShowDialog() = DialogResult.OK) Then
            myData = filedialog.FileName
 
            ' Wenn XML-Datei existiert, dann deren Werte nehmen
            XmlDoc = New XmlDocument
            XmlDoc.Load(filedialog.FileName)         ' XML-Datei laden
            XmlRoot = XmlDoc.DocumentElement 'AufWurzelknoten positionieren
            XmlRtb = XmlRoot.FirstChild      ' 1. <RichTextBox>-Knoten holen
 
      While XmlRtb IsNot Nothing ' Solange noch <RichTextBox>-Knoten da sind
       RtbName = XmlRtb.GetAttribute("name") ' Attribut-Wert auslesen
       RtfText = XmlRtb.InnerText
                ' ???? While Schleife
                PbName = XmlPb.GetAttribute("name")
                PbPfad = XmlPb.InnerText
 
                For Each tb In Panel1.Controls.OfType(Of _
                  RichTextBoxEx.RichTextBoxEx)()
                    For Each pb In Panel1.Controls.OfType(Of PictureBox)()
 
                        If tb.Name = RtbName Then ' Wenn Name übereinstimmt:
                            tb.Rtf = RtfText    ' Rtf-Text übernehmen
                            Exit For           ' For-Loop verlassen
                        End If
 
                        If pb.Name = PbName Then
                            pb.ImageLocation = PbPfad
                            Exit For
                        End If
 
                    Next
                Next
          XmlRtb = XmlRtb.NextSibling  ' Nächsten <RichTextBox>-Knoten holen
                XmlPb = XmlPb.NextSibling
            End While
 
        End If
    End Sub