Create an oblong the size of the button you'd like in something like Paint, colour it and save it as a .bmp. Insert it into your form, Insert >>> Picture. In the properties of the picture on the form, Change the Special Effect to raised. In the 'On Mouse Down' event type this code...
Code:
Private Sub YourImage_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.YourImage.SpecialEffect = 2
End Sub
YourImage being the name of the image. In the 'Mouse Up' event type...
Code:
Private Sub YourImage_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.YourImage.SpecialEffect = 1
End Sub