Dim objPersonElement As IXMLDOMElement
  Dim objChildElement As IXMLDOMElement
 
  If objSelNode Is Nothing Then Exit Sub
 
  'ignore this TreeView selection if it has not been the
  '"PERSON" node that has been clicked on
  If Trim(objSelNode.Tag) <> "" Then
    'get the node(element type), that has an attribute to the
    'value of the the TreeView node's tag
    Set objPersonElement = m_objDOMPeople.nodeFromID(objSelNode.Tag)
 
    lblElement.Caption = objPersonElement.nodeName & ": ID = " & _
                         objPersonElement.Attributes(0).nodeValue