How to Make Mouse Pointer (Cursor) Maintain Hourglass Shape

MORE INFORMATION

Step-by-Step Instructions for Making a System Modal Window

1. Start Visual Basic, or if Visual Basic is already running, choose New Project from the File menu (ALT, F, N). Form1 is created by default.
2. Add the following code to the General Declarations section of Form1:

      Declare Function SetSysModalWindow% Lib "User" (ByVal hwnd%)
      Const HourGlass = 11
   
   						

3. Add the following code to the Form_Load event of Form1:

      Sub Form1_Load ()
         Me.Show
         Screen.MousePointer = HourGlass
         ' Remove the following line to see how the mouse behaves without it
         result% = SetSysModalWindow%(form1.hWnd)
      End Sub
   
   						

4. Add the following code to the Form_Click event of Form1:

      Sub Form1_Click ()
         Unload Form1
      End Sub
   
   						

5. Run the program. Click the form to end it. Notice that the cursor remains an hourglass even when you move the mouse pointer over other windows.