Sub KeyDown_Event(e As Event)
Dim r As Reflector
r.Target = e
Dim keycode As String = r.RunMethod("getText")
'ShowToast(keycode & " pressed")
Select Case keycode.ToLowerCase
Case "m"
' do something here
Case " "
' do something here
End Select
e.Consume
End Sub