Imports System.IO
Imports System.Linq
Imports System.Net
Imports System.Xml.Linq
Imports System.Xml.XPath

Namespace TNetConsoleDemoApp
    Class Program
        Private Shared Sub Main(args As String())
            Dim http = WebRequest.Create("http://gathering.tweakers.net/xml/find/poster/43400/messages?limit=30")
            Dim root = XElement.Parse(New StreamReader(http.GetResponse().GetResponseStream()).ReadToEnd())
                '....
            Dim data = From p In root.XPathSelectElements("section/output_result/sections/section/output_result/sections/section")New With { _
                Key .topicid = p.Element("topic_id").Value, _
                Key .messageid = p.Element("message_id").Value, _
                Key .content = p.Element("message_content").Value, _
                Key .poster = p.Element("message_poster_nickname").Value _
            }

            Console.WriteLine("TopicId" & vbTab & "MsgId" & vbTab & vbTab & "Poster" & vbTab & vbTab & "Content")
            Console.WriteLine(New String("-"C, 75))
            For Each r As var In data
                Console.WriteLine("{0}" & vbTab & "{1}" & vbTab & "{2}" & vbTab & vbTab & "{3}...", r.topicid, r.messageid, r.poster, New String(r.content.Take(35).ToArray()))
            Next
        End Sub
    End Class
End Namespace