'''--------------------------------------------------------------------
''' <summary>
''' Gets the current property values from target.
''' </summary>
''' <param name="rangeValuePattern">
''' A RangeValuePattern control pattern obtained from 
''' an automation element representing a target control.
''' </param>
''' <param name="automationProperty">
''' The automation property of interest.
''' </param>
'''--------------------------------------------------------------------
Private Function GetRangeValueProperty( _
ByVal rangeValuePattern As RangeValuePattern, _
ByVal automationProperty As AutomationProperty) As Object
    If (rangeValuePattern Is Nothing Or _
    automationProperty Is Nothing) Then
        Throw New ArgumentException("Argument cannot be null.")
    End If

    If automationProperty.Id = _
    rangeValuePattern.MinimumProperty.Id Then
        Return rangeValuePattern.Current.Minimum
    End If
    If automationProperty.Id = _
    rangeValuePattern.MaximumProperty.Id Then
        Return rangeValuePattern.Current.Maximum
    End If
    If automationProperty.Id = _
    rangeValuePattern.SmallChangeProperty.Id Then
        Return rangeValuePattern.Current.SmallChange
    End If
    If automationProperty.Id = _
    rangeValuePattern.LargeChangeProperty.Id Then
        Return rangeValuePattern.Current.LargeChange
    End If
    If automationProperty.Id = _
    rangeValuePattern.ValueProperty.Id Then
        Return rangeValuePattern.Current.Value
    End If
    Return Nothing

End Function 'GetRangeValueProperty