Sub Parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If parser.Parents.IndexOf("article_info") > -1 Then
If Name = "title" Then
Title = Text.ToString
Else If Name = "abstract" Then
abstract = Text.ToString
Else if Name = "thumb" Then
thumb=Text.ToString'
Dim job4 As HttpJob
Dim out As OutputStream
job4.Initialize("thumb",Me)
job4.Download(thumb)
End If
End If
If Name = "article_info" Then
ListView1.AddTwoLinesAndBitmap(abstract,Title,job4.GetBitmap)
End If
End Sub