Snippet Library

Option Explicit 
Private s As String 
Private lLastNodeFound As Long 

Private Sub Command1_Click() 
If Command1.Caption = "Find" Then s = InputBox("What do want to search for?") 
If s <> "" Then 
If SearchTree(s) Then 
Command1.Caption = "Find next" 
Else 
MsgBox "Reached the end..." 
Command1.Caption = "Find" 
End If 
End If 
End Sub 

Private Sub Form_Load() 
Dim n As Node 
Set n = TreeView1.Nodes.Add(, , , "Settings...") 
TreeView1.Nodes.Add n, tvwChild, "Desktop", "Desktop settings" 
TreeView1.Nodes.Add n, tvwChild, "Mouse", "Mouse pointer settings" 
TreeView1.Nodes.Add n, tvwChild, "Misc", "Misc" 
Set n = TreeView1.Nodes.Add(, , , "Test...") 
TreeView1.Nodes.Add n, tvwChild, "Desktop2", "Desktop settings" 
TreeView1.Nodes.Add n, tvwChild, "Mouse2", "Mouse pointer settings" 
TreeView1.Nodes.Add n, tvwChild, "Misc2", "Misc" 
Command1.Enabled = True 
Command1.Caption = "Find" 
End Sub 
Private Function SearchTree(sSearchString As String) As Boolean 
Dim l As Long 
Dim n As Node 
'Dim sSearchString As String 
For l = lLastNodeFound + 1 To TreeView1.Nodes.Count 
Set n = TreeView1.Nodes(l) 
If InStr(1, n.Text, sSearchString, vbTextCompare) Then 
n.Selected = True 
SearchTree = True 
lLastNodeFound = l 
'or call the click event : TreeView1_NodeClick n 
Exit Function 
End If 
Next l 
SearchTree = False 
lLastNodeFound = 0 
End Function 
;