>Hi Cesar,
>
>That looks great. No dependency, plain code, this is great:)
>
>I made a rapid test and this function works as indicated but does not bring back anything but .T. as a return.
>
>Am I missing something simple here?
>
>François.
>
>PS: Testing on VFP 9 SP 2 on an old patched XP machine.

Change the beginning of the prg

LOCAL loMsgB,lnReturn
loMsgB = CREATEOBJECT("xmbMsgBoxEx")
lnReturn=loMsgB.SendMessage(tcCaption, tnIcon, tcTitle, tcButtons, tcIconFile)
loMsgB = NULL
RETURN lnReturn