Oggetto Screen, property MousePointer
Se vuoi mettere un cursore personalizzato setti MousePointer a vbCustom e carichi nella property MouseIcon l'immagine.

codice:
screen.mousepointer=vbhourglass
msgbox "pippo"
screen.mouseicon=loadpicture(...)
'o
set screen.mouseicon=image1.picture
screen.mousepointer=vbcustom
msgbox "pluto"
screen.mousepointer=vbdefault