Dim text As String
Dim sk As String
Dim flag As Integer
Public nod As Node
Public obj As TreeView
Private Sub Form_Load()
TreeView1.Nodes.Add , , "root", "root"
' TreeView1.Appearance = cc3D
TreeView1.Nodes.Add "root", tvwChild, "key1", "jiedian1"
TreeView1.Nodes.Add "root", tvwChild, "key2", "jiedian2"
' TreeView1.Nodes.Add "root", tvwChild, "key3", "jiedian3"
TreeView1.Nodes.Add "key1", tvwChild, "key5", "jiedian5"
TreeView1.Nodes.Add "key1", tvwChild, "key8", "jiedian8"
TreeView1.Nodes.Add "key5", tvwChild, "key6", "jiedian6"
TreeView1.Nodes.Add "key2", tvwChild, "key9", "jiedian9"
TreeView1.Nodes.Add "key9", tvwChild, "key10", "jiedian10"
TreeView1.Nodes.Add "key2"