This code allows the user to close the dialog with 'escape' or one of the following keys: Y, N or C. It depends on agraham's jReflection library. Sub AddKeyPressedListener Dim r As Reflector r.Target = MainForm.RootPane r.AddEventHandler("keypressed"...
www.b4x.com