Ok It's not working. I put in the following
Private Sub button1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
button1.Picture = "C:\...\images\ButtonUpLeft.gif"
End Sub
Private Sub button1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
button1.Picture = "C:\...\images\ButtonUpLeft.gif"
End Sub
Private Sub button1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
button1.Picture = "C:\...\images\ButtonUpLeft.gif"
End Sub
But it does not do anything when I run the form. Is there a setting I have to have on for it to work?