Sub frm_CloseRequest (EventData As Event)
Dim sf As Object = xui.Msgbox2Async(mResources.getResource(Main.c_language,"messageboxChanges") & CRLF & mResources.getResource(Main.c_language,"messageboxConfirm"), "", mResources.getResource(Main.c_language,"yes"), "", mResources.getResource(Main.c_language,"no"), Null)
Wait For (sf) Msgbox_Result (Result As Int)
If Result = xui.DialogResponse_Positive Then
frm.Close
End If
' If fx.Msgbox2(frm,mResources.getResource(Main.c_language,"messageboxChanges") & CRLF & mResources.getResource(Main.c_language,"messageboxConfirm"),"",mResources.getResource(Main.c_language,"yes"),"",mResources.getResource(Main.c_language,"no"),fx.MSGBOX_CONFIRMATION) = fx.dialogresponse.POSITIVE Then
' frm.Close
' End If
End Sub