'''--------------------------------------------------------------------
''' <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 conditionCanMove As New PropertyCondition( _
    TransformPattern.CanMoveProperty, False)

    Dim conditionCanResize As New PropertyCondition( _
    TransformPattern.CanResizeProperty, True)

    Dim conditionCanRotate As New PropertyCondition( _
    TransformPattern.CanRotateProperty, True)

    ' Use any combination of the preceding condtions to 
    ' find the control(s) of interest
    Dim condition As AndCondition = New AndCondition( _
    conditionCanRotate, conditionCanMove, conditionCanResize)

    Return rootElement.FindAll(TreeScope.Descendants, condition)

End Function 'FindAutomationElement