FoxPro/Visual FoxPro - LOOP?

Hola, ya termine mis aplicaciones, pero estoy en un dilema... estoy usando un loop para checar cuando determinado archivo ha cambiado y actualizar mi listbox, es recomendable esto? que tanto me quita de performance en las demas aplicaciones que ejecuto junto con esta de vfp?

o que otra opcion tengo?

gracias de antemano

Es mejor usar el control TIMER

Mira, a grandes razgos este seria mi codigo... el primer DO es el que me gustaria cambiar por otra cosa... como lo haria con un timer?

Lo que quiero es que este constantemente revisando cuando

Gracias de antemano y perdon si es mucho

DO WHILE thisform.acheck.Value = 1
FOR i = 1 TO thisform.lista.ListCount
archivo = thisform.lista.list(i) + "_PD02_log.txt"
IF lasttime <> FTIME(archivo) THEN
USE RTC
SET ORDER TO rtuser
SEEK ALLTRIM(thisform.lista.List(i))
myp = ALLTRIM(rtpath)
IF FILE(thisform.lista.list(i) + "_PD02_log.txt") = .T. THEN
USE templog EXCLUSIVE
ZAP
USE
lnHandle = FOPEN(thisform.lista.list(i) + "_PD02_log.txt")
=FSEEK(lnHandle, 0)
n = 0
DO WHILE .NOT. FEOF(lnHandle)
LCString = FGETS(lnHandle,2084) + CHR(9)
mykey = GETWORDNUM(LCString,1,CHR(9))
mydat = GETWORDNUM(LCString,2,CHR(9))
myfile = GETWORDNUM(LCString,3,CHR(9))
mytel = GETWORDNUM(LCString,5,CHR(9))
INSERT INTO templog(tkey,tdate,tfile,ttel);
VALUES(mykey,mydat,myfile,mytel)
DOEVENTS
ENDDO
ENDIF
ENDIF
NEXT
ENDDO