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