'News laden
    Private Sub loadthenews()
 
        Dim readXML As New XmlTextReader(Application.StartupPath & _
          "\heise-atom.xml")
        With readXML
            Do While readXML.Read()
                'Abfrage
                If .NodeType = XmlNodeType.Element And .Name = "title" Then
 
                    xmlst += " - " & .ReadElementString
 
                End If
             Loop
        End With
 
    End Sub

VB@rchiv its the Best