GUISetCursor not working for me

[c.haslam]

#include <GUIConstants.au3>

$Form1 = GUICreate("Form 1", 300, 300, 200, 200 )
$btn = GUICtrlCreateButton("Change cursor",20,20,100,40)
$lbl = GUICtrlCreateLabel("Arrow     ",20,100)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $btn
        fn()
    EndSwitch
WEnd

Func fn()
Local $Cursor_WAIT = 15
    GUISetCursor($Form1,$Cursor_WAIT,1)
    GUICtrlSetData($lbl,"Hourglass")
    sleep(3000)
    GUISetCursor($form1,2,1)
    GUICtrlSetData($lbl,"Arrow")
EndFunc

Why does the cursor not change to an hourglass?

...chris

[Achilles]

I'm not sure what you were thinking as for parameters, but they have to be in order. Try this:

#include <GUIConstants.au3>

$Form1 = GUICreate("Form 1", 300, 300, 200, 200 )
$btn = GUICtrlCreateButton("Change cursor",20,20,100,40)
$lbl = GUICtrlCreateLabel("Arrow     ",20,100)
GUISetState()

While 1
    $nMsg = GUIGetMsg()
    Switch $nMsg
    Case $GUI_EVENT_CLOSE
        Exit
    Case $btn
        fn()
    EndSwitch
WEnd

Func fn()
Local $Cursor_WAIT = 15
    GUISetCursor($Cursor_WAIT, 1)
    GUICtrlSetData($lbl,"Hourglass")
    sleep(3000)
    GUISetCursor(2, 1)
    GUICtrlSetData($lbl,"Arrow")
EndFunc