Simulate a spinner button

I would like to use the spinner but it doesn't allow for the use of custom icons.   In VB6 I could use a Command Button with a timer to achieve this.  Basically what I want to do is continuously fire the code while the mouse is pressed on the button and stop once its released.  Any help would be appreciated