Changing command button text colour.

[Aaron78]

Hi all,

I'd like to change the colour of the text in a command button when the user click the button, but for the text to return to it's original colour when the botton pops back up.

I'm assuming you use the following commands:

Private Sub cmdClose_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
*******CODE********
End Sub

Private Sub cmdClose_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
*******CODE********
End Sub

But I'm not sure as to how I would enter the correct code.

Any help would be appreciated,

Best Regards,

Aaron

 

[BobJones]

Hows this....

Private Sub cmdClose_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command0.ForeColor = 255
End Sub

Private Sub cmdClose_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command0.ForeColor = -2147483630
End Sub

 

[Aaron78]

Excellent. Thanks.