Public Function HasParent(ByVal ndNode As Node) As Boolean
 
  On Error GoTo ErrHandle
 
  Dim strTMP As String
 
  strTMP = ndNode.Parent.Key
 
  HasParent = True
 
  Exit Function
 
ErrHandle:
 
  HasParent = False
 
End Function

___________________________________________________
Wissend ist, wer wei?, wo er findet, was er noch nicht wei?.