I've created this example for you, to get you on your way:
Rem Initialisation
Rem Grab some images to use as example Mouse Icons
Set Text Transparent
For C=0 to 15
CLS 0
Ink RGB(0,31,63),RGB(0,0,0)
For Y=0 to 2
For X=0 to 2
Set Cursor X,Y : Print Str$(C)
Next X
Next Y
Ink RGB(255,255,255),RGB(0,0,0)
Set Cursor 1,1 : Print Str$(C)
Get Image C+1,0,0,20,20,1
Cls 0
Next C
CLS RGB(0,127,191)
Set Cursor 0,0 : Print "Press a combination of mouse buttons to change it's image number"
Hide Mouse
Sync On
Sprite 1,MouseX(),MouseY(),MouseClick()+1
Set Sprite 1,1,1
Sync
Rem Main Loop
Repeat
Sprite 1,MouseX(),MouseY(),MouseClick()+1
Sync
Until Scancode()=1 or Scancode()=28
Rem Termination
Show Mouse
Sync Off
End
Ooops! I just realised I'm answering a post in the non-pro forum, so sorry in advance if the program doesn't work in classic mode.