Dim reader As XmlNodeReader
        Try
            Dim doc As New XmlDocument
            doc.Load(My.Application.Info.DirectoryPath & "\bAV.xml") 'Pfad zur 
            ' XML-Datei hier einfuegen
            reader = New XmlNodeReader(doc)
            While reader.Read
                Select Case reader.NodeType
                    Case XmlNodeType.Element
                        If reader.Name = "Programm" Then
                            If reader.GetAttribute("name") = "Programmname" Then
                                'xmltest.ProgName.Text = reader.GetAttribute( 
                                ' "value")
                                MsgBox(reader.GetAttribute("value"))
                            ElseIf reader.GetAttribute("name") = _
                              "Programmversion" Then
                                'xmltest.ProgVersion.Text = reader.GetAttribute( 
                                ' "value")
                                MsgBox(reader.GetAttribute("value"))
                            ElseIf reader.GetAttribute("name") = _
                              "Letzter_Start" Then
                                'xmltest.ProgLetzterAufruf.Text = 
                                ' reader.GetAttribute("value")
                                MsgBox(reader.GetAttribute("value"))
                            End If
                        End If
                End Select
            End While
        Catch ex As Exception
        Finally
            If Not (reader Is Nothing) Then
                reader.Close()
            End If
        End Try