Sub Parser1_EndElement (Uri As String, Name As String, Text As StringBuilder)
Dim media, pubdate As String
Dim jk As Int =Parser1.Parents.IndexOf("item")
If Parser1.Parents.IndexOf("item") > -1 Then
If Name="title" Then heading=Text.ToString
If Name="description" Then descr=Text.ToString
If Name ="link" Then linkd=Text.ToString
If Name="media" Then media=Text.ToString
If Name="pubdate" Then pubdate=Text.ToString
End If
'If k < 40 Then
If Name="title" AND heading <> "" Then
k=k+1
list_feed.AddTwoLinesAndBitmap(heading,pubdate,Null)
End If
If Name="link" Then
linkurl(k)=linkd
End If
'End If
End Sub