[VB.Net]
    Public Class SearchData
      Public FoundCol As Integer
      Public FoundNode As NodeBase
      Public ReadOnly SearchText As String
      Public Sub New(ByVal searchString As String)
        Me.SearchText = searchString
      End Sub
    End Class

    Private Function Find(ByVal nodes As NodeCollection, ByVal data As SearchData) As Boolean
      If (Not nodes Is Nothing) Then
        For Each child As NodeBase In nodes
          Dim val As Object() = child.Value
          If (Not val Is Nothing) Then
            For i As Integer = 0 To val.Length - 1
              Dim cellValue As String = val.GetValue(i)
              If (Not cellValue Is Nothing And cellValue.Equals(data.SearchText)) Then
                data.FoundNode = child
                data.FoundCol = i
                Return True
              End If
            Next
          End If
          If (child.HasChildren) Then
            If Find(child.Items, data) Then
              Return True
            End If
          End If
        Next
      End If
      Return False
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim data As SearchData = New SearchData("Nested4")
      If (Find(flyGrid.Rows.Items, data)) Then
        flyGrid.Selected = data.FoundNode
      End If
    End Sub

[VB.Net]
    '---------------------------------------------------------------------------------
    ' enumerate nodes by using INodeNavigation interface methods
    ' implemented on NodeBase
    '---------------------------------------------------------------------------------
    Private Function EnumerateNodesUsingNodeNavigation(ByVal node As NodeBase) As Integer
      Dim nav As INodeNavigation = node.GetFirst()
      Dim res As Integer = 0
      While (Not nav Is Nothing)
        res += 1
        nav = nav.GetNext()
      End While
      Return res
    End Function
    '---------------------------------------------------------------------------------
    ' enumerate nodes by using HasChilren, NodeBase.Items and recursion
    '---------------------------------------------------------------------------------
    Private Function EnumerateNodes(ByVal node As NodeBase) As Integer
      Dim res As Integer = 0
      If (node.HasChildren And Not node.Items Is Nothing) Then
        For Each child As NodeBase In node.Items
          res = res + EnumerateNodes(child) + 1
        Next
      End If
      Return res
    End Function

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      'trying the first way
      Debug.WriteLine("Nodes Count (1):" + EnumerateNodes(flyGrid.Rows.RootNode).ToString())
      'trying the second way
      Debug.WriteLine("Nodes Count (2):" + EnumerateNodesUsingNodeNavigation(flyGrid.Rows.RootNode).ToString())
    End Sub