Sub Activity_KeyPress (KeyCode As Int) As Boolean
If KeyCode=KeyCodes.KEYCODE_BACK Then
#If B4A
Dim MC As MenuClose
MC.Initialize(Colors.ARGB(200,150,150,150),Colors.Blue)
#End If
'???????? '<===Add BaNanoCSSUtils 's Code as belows in this line
Return True
End If
Return False
' Return B4XPages.Delegate.Activity_KeyPress(KeyCode)
End Sub