by Tips (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 29th January 2000
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Custom Button
imgmain.Picture = Imgup.Picture
End Sub
Private Sub imgmain_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgmain.Picture = imgdown.Picture
End Sub
Private Sub imgmain_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
imgmain.Picture = Imgup.Picture
End Sub