Private Sub lv_ItemClick (Position As Int, Value As Object)
    et.Text = Value
    et.SelectionStart = et.Text.Length
    ime.HideKeyboard
    lv.Visible = False
    If SubExists(mCallback, mEventName & "_ItemClick") Then
       
       ' Don't return the value CallSub2(mCallback, mEventName & "_ItemClick", Value)
       ' Return the index
       CallSub2(mCallback, mEventName & "_ItemClick", Position)
    End If
End Sub