[Gambas-user] Confirm on form close

[vikram]

Hi,

Is there a way to confirm from a user when decides to close a form?

PUBLIC SUB Form_Close()
  DIM retVal AS Integer
  retval = Message.Question("Are you sure you want to exit?", "Yes", "No")
  IF retVal = 1 THEN 
    ME.Close
  ELSE IF retVal = 2 THEN 
    'code to prevent the form from exiting
  ENDIF 
END

Nothing i've put there seems to have been able to stop the form from exiting so far.

Thanks
Vikram