'FormにTreeView1を配置 

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        TreeView1.Nodes.Add("親です", "親")

        TreeView1.Nodes("親です").Nodes.Add("子供Aです", "子供A")

        TreeView1.Nodes("親です").Nodes.Add("子供Bです", "子供B")

        TreeView1.Nodes("親です").Nodes.Add("子供Cです", "子供C")

        TreeView1.Nodes("親です").Nodes.Add("子供Dです", "子供D")

        TreeView1.Nodes("親です").Nodes.Add("子供Eです", "子供E")

    End Sub



    Private Sub TreeView1_NodeMouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.TreeNodeMouseClickEventArgs) Handles TreeView1.NodeMouseClick

        Select Case e.Node.Name

            Case "親です"

                MsgBox("親がClickされたよ！")

            Case "子供Aです"

                MsgBox("子供AがClickされたよ！")

            Case "子供Bです"

                MsgBox("子供BがClickされたよ！")

            Case "子供Cです"

                MsgBox("子供CがClickされたよ！")

            Case Else

                MsgBox("なんかClickされたよ！")

        End Select

    End Sub

End Class