Dim jiediandongtai As Node '声明对象变量。
Dim I As Integer '声明计数器变量。
For I = 1 To 4
Set jiediandongtai = tvTreeView.Nodes.Add(, , , "Node " & CStr(I))
Next I
Dim jiediandongtai As Node '声明对象变量。
Dim I As Integer '声明计数器变量。
For I = 1 To 4
Set jiediandongtai = tvTreeView.Nodes.Add(, , , "Node " & CStr(I))
Next I