Visual Foxpro : Funcion Salir

Codigo para salir de nuestro sistema

IF MessageBox('¿ Desea salir de la aplicación', 36, 'Atención') = 6

   clear events

   If _vfp.StartMode=0
       Clear All
       Release All
       Close All
       Set Sysmenu To Default
       Cancel
    Endif
ENDIF

Donde :

If _vfp.StartMode=0  = Si estamos en modo desarrollo se ejecuta  cuando se compila no se ejecuta.