//////////////////////////////////////////////////////
// Object : POWERBUILDER ANIMATED-POINTERS!!
// Author : PowerObject! [Shekar Reddy]
// Date   : 3/26/2003
//////////////////////////////////////////////////////

Like to amuse your users? You may "animate" the
Mouse-Pointer so they get a kick out of the interface.
You don't need any animated cursors or acquire
Copyright permissions. Try this:

//////////////////////////////////////////////////////
// Window Instance var:
integer ii_Pointer


//////////////////////////////////////////////////////
Window.Open! event
//////////////////////////////////////////////////////
Timer( 0.1 )


//////////////////////////////////////////////////////
Window.Timer! event
//////////////////////////////////////////////////////
pointer   lp_Pointers[] = &
   { SizeNS!, SizeNESW!, SizeWE!, SizeNWSE! }
//
ii_Pointer++
//
IF ii_Pointer > UpperBound( lp_Pointers ) THEN
   ii_Pointer = 1
END IF
//
SetPointer( lp_Pointers[ ii_Pointer ] )

//////////////////////////////////////////////////////

Alternatively, you may kick off the Timer! event with
a call to the Timer() function at any time to start
the animated pointer.

Regards,

---
PowerObject!