Private Const OCR_NORMAL = 32512
Private Const IDC_SIZEALL = 32646&
Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, _
  ByVal id As Long) As Long
Private Declare Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal _
hInstance As Long, ByVal lpCursorName As Long) As Long
Private Declare Function DestroyCursor Lib "user32" (ByVal hCursor As Long) As _
Long
 
Private Sub Form_Load()
    'KPD-Team 2001
    'URL: http://www.allapi.net/
    'E-Mail: KPDTeam@Allapi.net
    Dim hCursor As Long
    'load the 'Size-All' cursos
    hCursor = LoadCursor(ByVal 0&, IDC_SIZEALL)
    'replaces the contents of the system cursor specified by OCR_NORMAL with 
    ' the contents of the 'size-all' cursor
    SetSystemCursor hCursor, OCR_NORMAL
    'clean up
    DestroyCursor hCursor
End Sub