note that Nodes.Clear can be VERY slow
performance may increase dramatically if replaced with a simple loop:

With treeview1.Nodes
For i = .Count To 0 Step -1
.Remove (i)
Next
End With




keepITcool

< email : keepitcool chello nl (with @ and .)
< homepage: http://members.chello.nl/keepitcool


"Serkan" wrote:

thanks :),


-----Original Message-----
Su

Private Sub Btn1_Click()
Dim NodX As Node
Dim L As Long

With Treeview1
..Nodes.Clear
Set NodX = .Nodes.Add(, , "Root", "I am Root")