すみません。もう少し詳しく教えていただけませんか？
フォームにTreeViewコントロールを一つ配置してノードを登録し
Private Sub TreeView1_NodeClick(ByVal Node As Node)
If Node.Children = 0 Then
MsgBox "子です"
End If
End Sub
これで一応はできたのですが、でもこれだと子を持たない親まで
反応してしまいます。