activity_create:
If FirstTime Then
parser.Initialize
End If
...
Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If parser.Parents.IndexOf("item") > -1 Then
If Name = "title" Then
Title = Text.ToString
Else If Name = "link" Then
Link = Text.ToString
Else if Name = "color" Then
TitleColor = Text.ToString
End If
End If
If Name = "item" Then
clv1.AddTextItem(Title, Link) 'add the title as the text and the link as the value
End If
End Sub