As3 code: Change the mouse arrow style and follow the mouse!

Package
{
Import Flash. display. Sprite;
Import Flash. Events. mouseevent;
Import Flash. UI. Mouse;
Public Class Main Extends Sprite
{
Private VaR Flag: Boolean = New Boolean ();
Public Function Main (): void
{
// Create a new light mark (small square)
VaR A: SPRITE = new sprite ();
A. Graphics. beginfill (0xff0000 );
A. Graphics. drawrect (0, 0, 50, 50 );
A. Graphics. endfill ();
This. addchild ();

A. startdrag ( True ); // The new cursor follows the mouse
Mouse. Hide (); // Hide original cursor
Stage. addeventlistener (mouseevent. Click, ); // Monitor whether the stage is clicked
Flag = False ; // Identify that the original mouse arrow is hidden
}

// Events triggered by mouse clicking on the stage
Private Function An (EVT: mouseevent): void
{
If (Flag = False )
{
Mouse. Show (); // Show Original cursor
}
Else
{
Mouse. Hide (); // Hide original cursor
}
Flag =! Flag; // hide and display status conversion
}
}


}