Using the Treeview Control

Private Sub Form_Load()
Dim tempnode As Node
Set tempnode = TreeView1.Nodes.Add(, , "mykey", "Health")
tempnode.Image = 1
tempnode.SelectedImage = 1
tempnode.ExpandedImage = 1
Set tempnode = TreeView1.Nodes.Add("mykey", tvwChild, "E", "East Division")
Set tempnode = TreeView1.Nodes.Add("E", tvwChild, "B", "Big")
Set tempnode = TreeView1.Nodes.Add("E", tvwChild, "s", "Small")
Set tempnode = TreeView1.Nodes.Add("E", tvwChild, "St", "Strong")
Set tempnode = TreeView1.Nodes.Add("E", tvwChild, "Ta", "Tall")
Set tempnode = TreeView1.Nodes.Add("E", tvwChild, "ft", "Fit")
Set tempnode = TreeView1.Nodes.Add("mykey", tvwChild, "C", "Central Division")
Set tempnode = TreeView1.Nodes.Add("mykey", tvwChild, "W", "West Division")
tempnode.EnsureVisible
End Sub