Sub Activity_KeyPress (KeyCode As Int) As Boolean 'Return True to consume the event
If KeyCode=KeyCodes.KEYCODE_BACK AND eb.Visible=True Then
EditBox.Hide(eb)
Return True
End If
End Sub
Sub EditShowBtn_Click
Dim r As Int
r=EditBox.Show(eb,Activity,"Enter some text in the box below.","Enter text here","OK","Cancel",eb.cInputBoxEditText.INPUT_TYPE_TEXT)
If r=DialogResponse.POSITIVE Then Label2.Text=eb.Result
End Sub
'Edit box events
Sub cInputBoxBtn_click
Dim b As Button
b=Sender
EditBox.Button_click(b.Tag,eb,Activity)
End Sub