Change CommandButton Picture
 

How would you use VBA to change the bitmap picture assigned to a command
button on a worksheet?

I'm playing with using the mouseover event to simulate a mouse roll-over as
follows:

------------------------

Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As
Integer, ByVal X As Single, ByVal Y As Single)

debug.print CommandButton1.picture 'brings up the number of the current
bitmap, whatever the number means

***change picture to mouse-over picture***

End Sub
------------------------
Regards,
Wayne C.