Private Sub Option1_Click()
If Option1.Value Then
Me.TreeView1.Nodes("Node5").Selected = True
End If
End Sub
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Option1.Visible = False
Option2.Visible = False
Option1.Value = False
Option2.Value = False
Select Case UCase$(Node.Key)
Case "NODE1"
Option1.Visible = True
Case "NODE2"
Option2.Visible = True
End Select
End Sub