vb Code:
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
ListBox1.Items.Clear()
Dim XDoc As New Xml.XmlDocument
Try
'LOAD FILE INTO OBJECT
XDoc.Load("C:\Documents and Settings\Owner\Desktop\newslist.xml")
'LOOP ALL THE CHILD NODES OF THE DOCUMENT'S DOCUMENTELEMENT PROPERTY
For Each XNode As Xml.XmlNode In XDoc.DocumentElement.ChildNodes
ListBox1.Items.Add(XNode.Item("rssid").InnerText)
'ListBox1.Items.Add(ControlChars.Tab & XNode.Item("title").InnerText)
'ListBox1.Items.Add(ControlChars.Tab & XNode.Item("link").InnerText)
Next
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub