Instead of a "button," use a "textbox" that is "raised." You can make at any color you want.
Set the following properties as follows:
On Mouse Down: = SpecialEffectEnter()
On Mouse Up: = SpecialEffectExit()
Add the following functions to a module:
Private Const conSunken = 2
Private Const conFlat = 0
Private Const conRaised = 1
Public Function SpecialEffectEnter()
Screen.ActiveControl.SpecialEffect = conSunken
Screen.ActiveControl.BackColor = "WhatEver color you want"
End Function
Public Function SpecialEffectExit()
Screen.ActiveControl.SpecialEffect = conRaised
Screen.ActiveControl.BackColor = "Your original back color"
End Function