Private Declare Function SetSystemCursor Lib "user32" (ByVal hcur As Long, ByVal id As Long) As Long
Private Declare Function GetCursor Lib "user32" () As Long
Private Declare Function CopyCursor Lib "user32" Alias "CopyIcon" (ByVal hcur As Long) As Long
Dim OldCur
Private Sub Form_Load()
OldCur = GetCursor()
OldCur = CopyCursor(OldCur)
SetSystemCursor OldCur, 32512
end sub