Public Sub IndexOf(value As String) As Int
#if B4J
For i = 0 To cmbBox.Items.Size - 1
Dim item As String = cmbBox.Items.Get(i)
If item = value Then Return i
Next
#Else If B4A
Return cmbBox.IndexOf(value)
#Else
For i = 0 To mItems.Size - 1
Dim item As String = mItems.Get(i)
If item = value Then Return i
Next
#End If
Return -1 'ignore
End Sub