FoxPro/Visual FoxPro - Pierdo los colores

Version 9
Tengo el siguiente codigo como ppal.

************************************************************************
SET PROCEDURE TO winstk.prg
IDMENU = "1"
MIDSIS = "1"
m.usr = alltrim(left(sys(0),at("#",sys(0))-1))
m.maquina = alltrim(left(sys(0),at("#",sys(0))-1))
titulo = m.usr + " - Stock"

&&defino colores de fondo para windows de visual, menues sin cambios de color

do main

yhoy = DATE()

if file('CIERRE.STK')
use CIERRE.STK excl
YINISTK = CIERRE
use
endif

&& tengo colores definidos, menues activos

&&defino barra de herramientas, hago show y lock(2) NO TIENE NINGUN CAMBIO DE COLORES

do barrherr

READ EVENTS

PIERDO COLORES DEFINIDOS....

********************************************************************

Espero sirva mis indicaciones.
Alguna idea?, gracias