>>>Thanks. It isn't what I'm looking for. What I am really trying to do is detect that a VFP messagebox has opened. I'm trying to move this to vfp9.
>>
>>No chance.
>>All you can do is to redirect the messagebox via #DEFINE, and set some flag while the messagebox is open.
>>It's a pain.
>
>Perhaps rigorously replace one of its parameters with a function which will return the value of the parameter, and also set a flag somewhere...? Still leaves you with no clue as to when was it closed, unless you wrap the whole call in some other procedure and then never use plain messagebox anywhere?

That's the spirit. Just like

*global define
#define messagebox my_messagebox
*usage
messagebox( ...

*on the very end or a special prg
procedure my_messagebox
 LPARA ...
 #undef messagebox
*set something global
 messagebox_up = .t.
 lvReturn = messagebox(...
 messagebox_up = .f.
 return lvReturn
endproc