Dim ds As New DataSet
ds.ReadXml("http://www.vbdotnetforums.com/external.php?type=rss2")
ListBox1.DataSource = ds.Tables("item")
ListBox1.DisplayMember = "title"
Dim doc As New Xml.XmlDocument
doc.Load("http://www.vbdotnetforums.com/external.php?type=rss2")
For Each node As Xml.XmlNode In doc.SelectNodes("rss/channel/item/title")
ListBox1.Items.Add(node.InnerText)
Next