Thanks Mr. Feldstein;

In my main program I allready put the statement READ EVENTS.

This is my main program:

close all
cd "c:\estaib"
set path to (curdir()+"datos"),(curdir()+"ayuda"),(curdir()+"clases"),(curdir()+"consultas"),(curdir()+"formas"),(curdir()+"imagenes"),(curdir()+"menus"),(curdir()+"programas"),(curdir()+"reportes"),(curdir()+"include")
set color to
set talk off
set sysmenu to
set clock status
set refresh to 4,4
on escape return
set cursor on
set exclusive off
set lock off
set multilocks on
set collate to "spanish"
set reprocess to 3 seconds
set sysformats off
set century on
set date british
set safety off
set autosave on
set escape off
set fields off
set compatible off
set confirm on
set decimal to 2
set exact on
set near on
set bell off
set nulldisplay to "Valor nulo"
set memowidth to 1024
set point to ','
set udfparms to value
set enginebehavior 70
close databases

*!*	Desactivar ventanas de Visual Foxpro
release window ..

* Asignación de teclas
clear macros
on key labe f12 do salir with .t.

*!* Definición del Screen de la aplicación
with _screen
	.backcolor=rgb(255,255,255)
	.borderstyle=0
	.closable=.t.
	.controlbox=.t.
	.maxbutton=.t.
	.minbutton=.t.
	.movable=.f.
	.height=285
	.width=550
	.showtips=.t.
	.caption="Estadísticas InternetBanking"
	.windowstate=2
	.autocenter=.t.
	.icon="imagenes\bod.ico"
endwith

*!*Invocación de las literales
#include include\mensaje.h

* -- Apertura de base de datos con las vistas y consultas.
do librarvistas

on shutdown do salir with .f.
do form formas\cerrarmes
read events
*-- restaurar el entorno
on error
on shutdown

procedure salir
	lparameters mensaje
	if mensaje
		if messagebox(men_nosalir,mb_iconopregunta+mb_sino+mb_defboton2,oapp.nombredesistema)=idsi
			do tumbar
		else
			return
		endif
	else
		do tumbar
	endif
endproc

procedure tumbar
	close databases
	clear progra
	clear memo
	clear events
	quit
endproc

procedure librarvistas
open database datos\datos shared
set database to datos
lnretval = adbobjects(laviews, 'view')
for i = 1 to lnretval
   if upper(dbgetprop(laviews[i], 'view', 'connectname')) = 'bodmillenium'
      dbsetprop(laviews[i], 'view', 'shareconnection', .t.)
   endif
endfor
return
endpro