RUN v/s .EXE

[jorevale]

Hola amigos

Les comento una cosa que me sucede.

Hay un sistema en el que el paso entre los diferentes formularios del mismo dura tres o cuatro segundos. De modo que decidí ponerle el ícono del reloj de arena al cursor para que el usuario sepa que el sistema está trabajando.

Lo curioso es que cuando lo ejecuto desde el entorno del visual basic 6, lo hace de esta forma, sin embargo, si ejecuto el .exe se mantiene el puntero normal (la flecha).

Está completamente comprobado que el .exe se corresponde con el entorno donde hago el run.

El código al salir de cualquiera de los formularios sería, por ejemplo:
Private Sub cmdOK_Click()
xPointer = Screen.MousePointer
Screen.MousePointer = vbHourglass
Unload Me
fPrince.Show
End Sub

y al entrar, por ejemplo en el formulario fPrince:
Private Sub Form_Activate()
xPointer = Screen.MousePointer
Screen.MousePointer = vbDefault
End Sub

la variable xPointer está declarada en un módulo:
Public xPointer As Integer

(esto está tomado del foro)

Repito: Lo curioso es que cuando ejecuto desde el diseño funciona, y cuando llamo al .exe, no.

Si a alguien se le ocurre algo? Gracias.