主题：请问怎么能够让TreeView返回选中复选框的数量啊

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")

For Each nd As WinForm.TreeNode In trv.AllNodes

    Dim tst2 As WinForm.Label = Forms("窗口1").Controls("Label2")

    Dim idx As Integer

    Dim bc As WinForm.ComboBox = Forms("窗口1").Controls("ComboBox1")

    Dim dr As DataRow

    dr = DataTables("面料规格表").Find("规格类别 = '" & bc.Value & "' and 规格 = '" & nms(0) & "' ")

    Dim dr1 As DataRow

    dr1 = DataTables("面料规格表").Find("规格类别 = '" & bc.Value & "' and 规格 = '" & nms(1) & "' ")

    Dim c1 As Integer = nd.Level

    If nd.Checked = True And nd.Level = 2 Then

        If idx > 0 Then '如果存在最大编号

            idx = idx + 1 '获得最大编号的后三位顺序号,并加1

        Else

            idx = 1 '否则顺序号等于1

        End If

    Else

        If nms.Count >= 2 Then

            tst2.text = dr("代码") & dr1("代码") & Format(idx, "00")

        ElseIf nms.Count = 1 Then

            tst2.text = dr("代码") & "0000000" & Format(idx, "00")

        ElseIf nms.Count < 1 Then

            tst2.text = ""

        End If

    End If

Next