How To Modify the Windows Default Cursor

MORE INFORMATION

Step-by-Step Example

1. Start a new project in Visual Basic. Form1 is created by default.
2. Add the following code to the General Declarations section of Form1:

      Private Const IDC_APPSTARTING = 32650&
      Private Const IDC_ARROW = 32512&
      Private Const OCR_NORMAL = 32512&
   
      Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA"
      (ByVal hInstance As Long, ByVal lpCursorName As Long) As Long
      Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As
      Long, ByVal id As Long) As Boolean
   
   					

3. Add two CommandButtons, Command1 and Command2, to Form1.
4. Add the following code to the Click event of Command1:

      Private Sub Command1_Click()
      Dim hcursor As Long, ret_val As Long
   
          hcursor = LoadCursor(0, IDC_APPSTARTING)
          ret_val = SetSystemCursor(hcursor, OCR_NORMAL)
   
      End Sub
   
   					

5. Add the following code to the Click event of Command2:

      Private Sub Command2_Click()
      Dim hcursor As Long, ret_val As Long
   
          hcursor = LoadCursor(0, IDC_ARROW)
          ret_val = SetSystemCursor(hcursor, OCR_NORMAL)
   
      End Sub
   
   					

6. Run the project by pressing the F5 key. Click on Command1 to modify the cursor. Move the cursor around over other applications and click on them for activation. Finally, click on Command2 to restore the cursor to its original shape.