How to use Treeview control 6.0 in access 2000

[at51178]

Hey Guys I have looked everywhere on the web for this one
I am trying to find out a way to populate my treeview control which is located on my form.
Please Help

Thank You

 

[Roidster]

Try this piece of code to start you off building your own treeview control (if you still haven't):

Option Compare Database
Option Explicit

Private Sub Form_Load()

Dim ndTop As MSComctlLib.Node
Dim nd As MSComctlLib.Node

With Me.tvwOne.Nodes 'TreeView
.Clear
Set ndTop = .Add(, , , "Trial&quot
ndTop.Expanded = True
Set nd = .Add(ndTop.Index, tvwChild, , "NextLevel&quot
nd.Expanded = True
Set nd = .Add(ndTop.Index, tvwChild, , "NextSibling&quot
nd.Expanded = True
Set nd = .Add(nd.Index, tvwChild, , "NextChild&quot
nd.Expanded = True
nd.ForeColor = vbBlue
End With
End Sub

Private Sub tvwOne_NodeClick(ByVal Node As Object)
Msgbox Node.Text
End Sub

..cheers!

 

[at51178]

Thanks for the reply but I have my form set up already but by looking at this code you did give me some ideas about changing the forecolor.
I am at work now but I will fool around with it when I get a chance.
Thanks