Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Not (NodeOld Is Nothing) Then NodeOld.Bold = False
Node.Bold = True
Set NodeOld = Node
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
if lngSelectNodeIndex=0 then lngSelectNodeIndex=1 '此行是为了避免出现下标超出的错误
If lngSelectNodeIndex <> Node.Index Then
TreeView1.Nodes(lngSelectNodeIndex).Bold = False
Node.Bold = True
lngSelectNodeIndex = Node.Index
End If
End Sub