Oops, forgot to mention the starting layout settings for the command button:

Backcolor = 255,255,128
Colorsource = 0
SpecialEffect = 2
Themes = .F.

>
>COMMAND BUTTON:
>
>Click() -event:
>(NOTE: I establish This.Down -property on-the-fly, but of course you should bind it to data)
>
>

>IF TYPE('this.Down') = 'U'
>	This.AddProperty('Down',.T.)
>ELSE
>	This.Down = !This.Down
>ENDIF
>IF This.Down
>	this.VisualEffect= 2
>	This.Down = .T.
>	This.Themes = .T.
>ELSE
>	This.VisualEffect = 0
>	This.Down = .F.
>	This.Themes = .F.
>	this.BackColor = RGB(255,255,128)
>	This.SpecialEffect= 2
>	
>ENDIF
>

>
>
>MouseEnter() -event:
>

>LPARAMETERS nButton, nShift, nXCoord, nYCoord
>IF TYPE('This.Down') != 'U'
>
>	IF This.Down
>		this.VisualEffect= 2
>		this.BackColor= RGB(192,192,192)
>	ENDIF
>ENDIF
>

>
>
>MouseLeave() -event:
>

>LPARAMETERS nButton, nShift, nXCoord, nYCoord
>IF TYPE('This.Down') != 'U'
>	IF This.Down
>		this.BackColor = RGB(255,255,128)
>	ENDIF
>ENDIF
>

>
>
>
>Cheers!