Bitmaps en TsButton: M. Mercado

[noe aburto]

Saludos.

En cuestion de la clase de Mster. M. Mercado, tengo un detalle que no he podido resolver:

En un boton envio 2 bitmaps para que cambie al recibir el foco, pero ello solo con el mouse, que podre hacer para que al tener el foco cambie al segundo bitmap, sin uso del mouse. Mi fuente es:

#define COLOR_ACEPTA {|oBtn|If(oBtn:lMouseOver.or.oBtn:lFocused,COLOR_MAGENTA,If(oBtn:lPressed,COLOR_BLANCO,aCOLOR(10)))}

@ 0,nDer SBUTTON oBtn FILE 'LEVEL2.BMP','LEVEL1.BMP' OF oDLG SIZE 8,8;
ACTION (...)
COLOR COLOR_ACEPTA;
PIXEL
Tengo antes de este boton una serie de gets, y al llegar al oBtn como puedo hacer para que cambie al bitmap 2.

Gracias.

Fwh 8.11, xH 1.1, bcc 5.5