MousePointer Property Example

This example changes the mouse pointer to an hourglass while circles are drawn across the screen and then changes the hourglass back to a pointer at the end of the procedure. To try this example, paste the code into the Declarations section of a form. Press F5 to run the program, and then click the form.

Private Sub Form_Click ()
   Dim I   ' Declare variable.
   ' Change mouse pointer to hourglass.
   Screen.MousePointer = vbHourglass
 ' Set random color and draw circles on form.
   For I = 0 To ScaleWidth Step 50    
      ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
      Circle (I, ScaleHeight * Rnd), 400
   Next
   ' Return mouse pointer to normal.   Screen.MousePointer = vbDefault
End Sub