'''--------------------------------------------------------------------
''' <summary>
''' Finds all automation elements that satisfy 
''' the specified condition(s).
''' </summary>
''' <param name="targetApp">
''' The automation element from which to start searching.
''' </param>
''' <returns>
''' A collection of automation elements satisfying 
''' the specified condition(s).
''' </returns>
'''--------------------------------------------------------------------
Private Function FindAutomationElement( _
ByVal targetApp As AutomationElement) As AutomationElementCollection
    If targetApp Is Nothing Then
        Throw New ArgumentException("Root element cannot be null.")
    End If

    Dim conditionSupportsGridPattern As New PropertyCondition( _
    AutomationElement.IsGridPatternAvailableProperty, True)

    Dim conditionOneColumn As New PropertyCondition( _
    GridPattern.ColumnCountProperty, 1)

    Dim conditionOneRow As New PropertyCondition( _
    GridPattern.RowCountProperty, 1)

    Dim conditionSingleItemGrid As New AndCondition( _
    conditionSupportsGridPattern, conditionOneColumn, conditionOneRow)

    Return targetApp.FindAll( _
    TreeScope.Descendants, conditionSingleItemGrid)

End Function 'FindAutomationElement