global type messagebox from function_object
end type

forward prototypes
global function integer messagebox (string as_title, string as_message, icon as_icon, button as_button, integer as_integer)
end prototypes

global function integer messagebox (string as_title, string as_message, icon as_icon, button as_button, integer as_integer);

n_cst_systemfuncs ln_funcs
long li_rep 

  
   li_rep = ln_funcs.of_messagebox(as_title, as_message,as_icon,as_button,as_integer)
  if li_rep > 0 then return 1
  
  RETURN li_rep

  return messagebox(as_title,as_message,information! ,yesno!,3)
  //return 1




end function