FoxPro/Visual FoxPro - Control Progreso

Hola amigos espero me puedan ayudar, cuando ejecuto el método connect() de un objeto tarda unos segundos en conectarse, deseo hacer un control de progreso pero no me funcina, todo se detiene hasta que termina de ejecutarse el método connect() que puedo hacer?

No tiene mucho sentido poner un progressbar si no tienes idea realmente de cuanto tiempo tardará.

Yo te aconsejaría:

Thisform.MousePointer=11 &&puntero reloj de arena
WAIT WIND "Intentando la conexión, espero por favor..." NOWAIT NOCLEAR
OBJETO.CONNECT()

WAIT CLEAR
Thisform.MousePointer=0 &&puntero normal

Saludos.