Sub App_Start
Form1.Show
tv.New1("form1",10,10,100,100) 'tv is a TreeView object
tv.CheckBoxes = true
tv.AddNewNode("Node1")
tv.AddNewNode("Node2")
node.New1 'node is a Node object.
node.Value = tv.GetNode(0)
node.Checked = true
End Sub
'This sub will fire when the user checks or unchecks one of the nodes.
Sub tv_AfterCheck
If tv.Action = "unknown" Then Return
node.Value = tv.CheckedNode
Msgbox(node.Text,node.Checked)
End Sub