Screen.MousePointer = 11
Screen.MousePointer = vbUpArrow

Constant	Value	Description
vbDefault	0	(Default) Shape determined by the object
vbArrow	1	Arrow
vbCrosshair	2	Cross (crosshair pointer)
vbIbeam	3	I beam
vbIconPointer	4	Icon (small square within a square)
vbSizePointer	5	Size (four-pointed arrow pointing north, south, east, and west)
vbSizeNESW	6	Size NE SW (double arrow pointing northeast and southwest)
vbSizeNS	7	Size N S (double arrow pointing north and south)
vbSizeNWSE	8	Size NW SE (double arrow pointing northwest and southeast)
vbSizeWE	9	Size W E (double arrow pointing west and east)
vbUpArrow	10	Up Arrow
vbHourglass	11	Hourglass (wait)
vbNoDrop	12	No Drop
vbArrowHourglass	13	Arrow and hourglass
vbArrowQuestion	14	Arrow and question mark
vbSizeAll	15	Size all
vbCustom	99	Custom icon specified by the MouseIcon property

Screen.Cursor := crHourglass; { Show hourglass cursor }
Button1.Cursor := crCross;

Constant	Value		Description
crDefault	0		(Default) Shape determined by the object
crNone	-1		No cursor
crArrow	-2		Arrow
crCross	-3		Cross (crosshair pointer)
crIBeam	-5		I beam
crSize	-5		Size (four-pointed arrow pointing north, south, east, and west)
crSizeNESW	-6		Size NE SW (double arrow pointing northeast and southwest)
crSizeNS	-7		Size N S (double arrow pointing north and south)
crSizeNWSE	-8		Size NW SE (double arrow pointing northwest and southeast)
crSizeWE	-9		Size W E (double arrow pointing west and east)
crUpArrow	-10		Up Arrow
crHourglass	-11		Hourglass (wait)
crDrag	-12		Icon (small square within a square)
crNoDrop	-13		No Drop
crHSplit	-14		Horizontal Spliter
crVSplit	-15		Vertical Spliter
crMultiDrag	-16
crSQLWait	-17

URL: http:// cpcug.org / user / clemenzi / technical / Languages / MouseIcons.htm