Sub Activity_KeyPress(KeyCode As Int) As Boolean
If KeyCode = KeyCodes.KEYCODE_VOLUME_DOWN Then
CallSubDelayed(Me, "HandleKeyPress")
End If
Return True
End Sub
Sub HandleKeyPress
Dim options_list As List
Dim Answ As Int
options_list.Initialize
options_list.AddAll(Array As String("Search Customers"))
Answ = InputList(options_list,"Options",-1)
Select Case Answ
Case 0
Log(0)
mnu_search_customers
Log(2)
End Select
End Sub