Private
Sub
TreeView1_NodeClick(
ByVal
Node
As
MSComctlLib.Node)
Dim
ListValues(2, 1)
As
Variant
ListValues(0, 0) =
"Case 1"
ListValues(0, 1) =
"A"
ListValues(1, 0) =
"Case 2"
ListValues(1, 1) =
"B"
ListValues(2, 0) =
"Case 4"
ListValues(2, 1) =
"D"
Dim
ListValues2(2, 1)
As
Variant
ListValues2(0, 0) =
"Case 1"
ListValues2(0, 1) =
"A"
ListValues2(1, 0) =
"Case 3"
ListValues(1, 1) =
"C"
ListValues2(2, 0) =
"Case 5"
ListValues2(2, 1) =
"E"
With
ComboBox1
.Clear
Select
Case
Node.Key
Case
"A"
.List = ListValues
Case
"B"
.List = ListValues2
End
Select
End
With
End
Sub