Private Sub TreeView1_NodeClick(ByVal Node As Node)
 if node.Children>0 Then
   msgbox "父"
else
   msgbox "子"
end if
end sub