Mike,

>on shutdown iif(messagebox('Wanna Quit?', 4) = 6, _vfp.DoCmd('QUIT'), '')
>
>The catch is it throws an error. You could trap it, but it would be a two liner then, shucks.

Just use the _vfp.Quit method:

on shutdown iif(messagebox('Wanna Quit?', 4) = 6, _vfp.Quit, '')

It seems to work, although I did get a Dr. Watson at least once in three tries. :-)