ex.hlp (Topic list)
Important Notice
The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.
MousePointer Property and SCREEN Object Example
                        Example                Contents  Index  Back
──────────────────────────────────────────────────────────────────────────────
' The example changes the mouse pointer to an hourglass (X) while hearts are
' drawn on a form, and then changes it back to the default mouse pointer at
' the end of the procedure. The MousePointer property is used in conjunction
' with the SCREEN object.
 
' To try this example:
' 1. Choose New Project from the File menu
' 2. Choose New Form from the File menu to create a form
' 3. Press Alt+F4 to return to the programming environment
' 4. Copy the code example below to the form module
' 5. Press F5 to run the example
 
 SUB Form_Click ()
    SCREEN.MousePointer = 11        ' Change pointer to hourglass
    FOR i% = 1 TO 10                ' Draw hearts (ASCII 3)
         FOR f% = 1 TO 32000        ' Create time delay
         NEXT f%
    PRINT CHR$(3)
    NEXT i%
    SCREEN.MousePointer = 0         ' Return pointer to default
 END SUB