Sub Activity_KeyPress(KeyCode As Int) As Boolean
Select Case KeyCode
'Exit - Return
If ChListActive=False Then
Select Msgbox2("Are You Sure To Close App?", "MainTitle", "YES", "NO", "", Null)
Case DialogResponse.POSITIVE
Return False
Case DialogResponse.CANCEL
Return True
End Select
End Select
Else
ListView1.RemoveView
End If
End Sub