'''--------------------------------------------------------------------
''' <summary>
''' Gets the current property values from target.
''' </summary>
''' <param name="gridItemPattern">
''' A GridItemPattern control pattern obtained from 
''' an automation element representing a target control.
''' </param>
''' <param name="automationProperty">
''' The automation property of interest.
''' </param>
''' <returns>
''' An integer object representing the requested property value.
''' </returns>
'''--------------------------------------------------------------------
Private Function GetGridItemProperties( _
ByVal gridItemPattern As GridItemPattern, _
ByVal automationProperty As AutomationProperty) As Object
    If automationProperty.Id = gridItemPattern.ColumnProperty.Id Then
        Return gridItemPattern.Current.Column
    End If
    If automationProperty.Id = gridItemPattern.RowProperty.Id Then
        Return gridItemPattern.Current.Row
    End If
    If automationProperty.Id = gridItemPattern.ColumnSpanProperty.Id Then
        Return gridItemPattern.Current.ColumnSpan
    End If
    If automationProperty.Id = gridItemPattern.RowSpanProperty.Id Then
        Return gridItemPattern.Current.RowSpan
    End If

    Return Nothing

End Function 'GetGridItemProperties