Txt = "Do you really want to delete and create a new case self-analysis ?"
Msgbox2Async(Txt,"A T T E N T I O N","Yes","","No",Null, True) ' MessageBox
Wait For Msgbox_Result (Result As Int)
If Result = DialogResponse.POSITIVE Then
'Return False ' Return = False the Event will not be consumed
File.Delete(File.DirInternal, "case_analysis_thoughts.db") ' for testing, removes the database
ToastMessageShow("Δημιουργήθηκε Φόρμα Νέου Περιστατικού", False)
Else ' we leave the program
'Return True ' Return = True the Event will be consumed to avoid
Return
End If