For a command button

Mouse Enter

LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.caption = "Some text"

Mouse leave

LPARAMETERS nButton, nShift, nXCoord, nYCoord
this.caption = ""

Create and place a jpg the size of the button, over the button. I use a gradient fill in the jpg.

When the mouse passes over the jpg, it will raise like an eyelid and expose the text on the button for clicking.