'''------------------------------------------------------------------------
''' <summary>
''' Finds all automation elements that satisfy 
''' the specified condition(s).
''' </summary>
''' <param name="rootElement">
''' 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 rootElement As AutomationElement) As AutomationElementCollection
    If rootElement Is Nothing Then
        Throw New ArgumentException("Root element cannot be null.")
    End If

    Dim conditionCanMaximize As _
        New PropertyCondition(WindowPattern.CanMaximizeProperty, True)

    Dim conditionCanMinimize As _
        New PropertyCondition(WindowPattern.CanMinimizeProperty, True)

    Dim conditionIsModal As _
        New PropertyCondition(WindowPattern.IsModalProperty, False)

    Dim conditionIsTopmost As _
        New PropertyCondition(WindowPattern.IsTopmostProperty, True)

    Dim conditionWindowInteractionState As _
        New PropertyCondition(WindowPattern.WindowInteractionStateProperty, _
        WindowInteractionState.ReadyForUserInteraction)

    Dim conditionWindowVisualState As _
        New PropertyCondition(WindowPattern.WindowVisualStateProperty, _
        WindowVisualState.Normal)

    ' Use any combination of the preceding condtions to 
    ' find the control(s) of interest
    Dim condition = New AndCondition(conditionCanMaximize, _
        conditionIsModal, conditionWindowInteractionState)

    Return rootElement.FindAll(TreeScope.Descendants, condition)

End Function 'FindAutomationElement