Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
Dim KC As Boolean
If KeyCode = KeyCodes.KEYCODE_MENU Then KC = True
If KeyCode = KeyCodes.KEYCODE_BACK Then KC = True
If KeyCode = KeyCodes.KEYCODE_HOME Then KC = True
If KeyCode = KeyCodes.KEYCODE_POWER Then KC = True
If KC = True Then
MsgBox("Hallo")
Return True
End If
End Sub