LocateItem

Public Sub LocateNode(ctlTreeView As TreeView, Node As Node)
Dim x As Long
Screen.MousePointer = vbHourglass
For x = 1 To ctlTreeView.Nodes.Count
If ctlTreeView.Nodes(x).Index= Node.Index Then
ctlTreeView.Nodes(x).EnsureVisible
ctlTreeView.Nodes(x).Selected = True
Exit For
End If
Next
Screen.MousePointer = vbNormal
End Sub