Public Sub getSelectedValue As Object
Return GetValueImpl (mSelectedIndex)
End Sub
Public Sub setSelectedValue (v As Object)
If StringMode Then
SetIndex(mStringItems.IndexOf(v), False)
Else
Dim n As Double = v
SetIndex(Min(Size - 1, Max(0, Round((n - mStartRange) / mInterval))), False)
End If
End Sub