VB Code:
Dim testname As String
Dim TestData() As String
Private Sub Command1_Click()
Dim Key As String
Key = InputBox("Please define a key for this element:", "Define Key")
lsttest.Nodes.Add "root", tvwChild, "element" & lsttest.Nodes.Count, "sub" & Key
lsttest.Nodes.Item(1).Expanded = True
ReDim Preserve TestData(lsttest.Nodes.Item(1).Children, 0)
TestData(lsttest.Nodes.Item(1).Children, 0) = "Enter question here"
End Sub
Private Sub Command2_Click()
MsgBox lsttest.Nodes.Item(1).Children
End Sub
Private Sub Form_Load()
testname = "Test1"
ReDim TestData(0, 0)
lsttest.Nodes.Add , , "root", testname
End Sub