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