Sub parser_EndElement (Uri As String, Name As String, Text As StringBuilder)
If Xpath(parser.Parents).ToLowerCase = "xmeml/bin/children/clip" Then
Select Name
Case "duration"
Log("Duration")
Case "name"
Log("Name")
End Select
End If
End Sub
Sub Xpath(l As List) As String
Dim s As StringBuilder : s.Initialize
For Each e As String In l
If s.Length > 0 Then s.Append("/")
s.Append(e)
Next
Return s.ToString
End Sub