#Main=0
If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")
hPoint=PurePoint("Cross.pvp")
SysPurePoint(hPoint)
quitMain=0
Repeat
Select WaitWindowEvent()
Case #PB_Event_CloseWindow
quitMain=1
EndSelect
Until quitMain
FreePurePoint(hPoint)
ResetPurePoint() ;<-- Resets System Cursor
EndIf
End
|