I want to display a Pointing hand cursor over some buttons
I tried to do it with my Quit button however it isn't showing up

Here's my DoDialog   look at case _quitBtn

What am I doing wrong?   Why isn't the cursor displaying?

Brian

local fn DoDialog
'~'1
dim as long evnt, ref
evnt = dialog(0)
ref = dialog(1)
select evnt
case _wndClose
WINDOW CLOSE #ref
case _cursOver
select ref
case _quitBtn
cursor _kThemePointingHandCursor _themeCursorStatic
end select
case _btnClick
select ref

/*case _beepBtn : beep
case _helpBtn : beep : button _helpBtn, _grayBtn*/
case _quitBtn
gFBQuit = _zTrue
case _newBtn
fn FileCloseProject
fn FileNewProject
case _URLbtn
FN LaunchURL ("http://storyteller.macdesignedsoftware.com")
case _RegisterBtn
FN LaunchURL ("http://www.macdesignedsoftware.com/store_online.html")
case _RegisterBtn2
FN LaunchURL ("http://www.macdesignedsoftware.com/store_online.html")
end select
end select
end fn