VB6.0中的treeview中没有selectedNode

Question

在VB6.0中，通过：工程－部件—勾选[Microsoft Windows Common Controls 6.0(SP6)]而获得TreeView控件。
并且设置：TreeView1.Checkboxes = True
现在想如何去判定Chemkboxes是否被选定？
从网上查得：
TreeView1.SelectedNode.Checked=True为选定
在实际操作中却为何没有SelectedNode属性呢？
又以什么别的办法解决呢？
我现在想实现的功能是：用TreeView控件连接SQL数据库后，想灵活勾选，达到多项选的效果。
在此请各位大侠指点迷津了。

Answer 1

Private Sub TVPower_NodeCheck(ByVal Node As MSComctlLib.Node)
  Dim i As Integer
  
  If Node.Children > 0 Then
    For i = 0 To Node.Children - 1
      TVPower.Nodes(Node.Child.Index + i).Checked = Node.Checked
    Next
  End If
End Sub

Answer 2

Private Sub TVPower_NodeCheck(ByVal Node As MSComctlLib.Node)
  Dim i As Integer
  
  If Node.Children > 0 Then
    For i = 0 To Node.Children - 1
      TVPower.Nodes(Node.Child.Index + i).Checked = Node.Checked
    Next
  End If
End Sub

Answer 3

目前，我准备利用TreeView和ListBox组合。
所达到的效果是：
TreeView1.CheckBoxes=True时
只要对CheckBoxes打勾了的，就自动添加到ListBox中，以做为SQL 查询语句的条件。
在此请教一下各位高手，
1.怎样才能做到只要在CheckBoxes前打勾了的，就自动添加到ListBox中。
2.怎么样才能将ListBox的List值由列转为行，如：
335，
336，
337，
338
转换成：335，336，337，338
回复
1楼所说的SelectedItem,在Checkboxes前打勾了，还须点击一下对应节点才能添加到ListBox中去，否则无效2楼与3楼的代码没懂，不好意思，我初次接触VB，加之本质有点笨，若有空瑕，烦请告之一二。

Answer 4

补充问题：在ListBox中，如何判定所添加的值是否以存。