Sub updatedisplayBBC()
'starts the XML reader
Dim bbcTR As New XmlTextReader(bbcXMLf)
'a loop to read through the XML file returning matches
While bbcTR.Read
If bbcTR.Name = "title" AndAlso bbcTR.NodeType = XmlNodeType.Element Then
bbcList1.Items.Add(bbcTR.ReadString)
End If
End While
'closes the XML reader
bbcTR.Close()
bbcDoc = New XmlDocument
bbcDoc.Load(bbcXMLf)
End Sub