Method: ScrollNodeInView for Tree

Sub ListBox1_EventInitialize(ByRef This)
  Call CreateDefaultTree(Tree1)
  Call FillListBox(Tree1)
End Sub

Sub FillListBox(oNode)
  Dim oMyNode
  For Each oMyNode in oNode.Nodes
    If oMyNode.Key <>"" Then
      Call ListBox1.Items.Add(oMyNode.Key,0)
    End If
    Call FillListBox(oMyNode)
  Next
End Sub

Sub Button1_EventClick(ByRef This)
  Dim oMyNode
  Set oMyNode = Tree1.GetNode(ListBox1.Text)
  Tree1.ScrollNodeInView(oMyNode)
End Sub

Sub CreateDefaultTree(ByRef This)
  Dim oFindRoot, oRoot, oMainNode
  Set oRoot = This.Nodes.Add("Tools")
  oRoot.Key = "tools"
  oRoot.Expanded = true
  Set oMainNode = oRoot.Nodes.Add("Electric Tools")
  oMainNode.Key = "electric"
  oMainNode.Nodes.Add("Drill").Key = "drill"
  oMainNode.Nodes.Add("Saw").Key = "saw"
  Set oMainNode = oRoot.Nodes.Add("Hand Tools")
  oMainNode.Key = "handtool"
  oMainNode.Nodes.Add("Hammer").Key = "hammer"
  oMainNode.Nodes.Add("Screwdriver").Key = "screwdriver"
End Sub