Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
Dim s As String = ""
If KeyCode >= KeyCodes.KEYCODE_0 AND KeyCode <= KeyCodes.KEYCODE_9 Then
s = Chr(KeyCode + 41)
Else If KeyCode >= KeyCodes.KEYCODE_A AND KeyCode <= KeyCodes.KEYCODE_Z Then
s = Chr(KeyCode + 36)
End If
If s <> "" Then
Log(s)
Return True
End If
End Sub