iOS Question Object type behavior on B4A/B4i

Private Sub TestIndex
  Log(IndexOf(Array As Object("1", "2", "3"), "2"))
End Sub

'index value in array; -1 if not found
Public Sub IndexOf(values() As Object, value As Object) As Int
  Dim rc As Int = -1
  For i = 0 To values.Length - 1
     If (values(i) = value) Then
            rc = i
            Exit
     End If
  Next
  Return rc
End Sub

Public Sub TestIndex
    Log(IndexOf(Array As Object("1", "2", "3"), "2"))
'    Log(IndexOf(Array As String("1", "2", "3"), "2"))
End Sub

'index value in array; -1 if not found
Public Sub IndexOf(Values() As Object, Value As Object) As Object
    Dim idx As Int
    For Each v As Object In Values
        If v = Value Then Return idx : idx = idx + 1
    Next
    Return -1
End Sub