#Main=0

If OpenWindow(#Main,0,0,400,300,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")

hPoint=PurePoint("Cross.pvp")

SysPurePoint(hPoint)           ;<-- Sets System Cursor to PurePoint

quitMain=0

Repeat

Select WaitWindowEvent()

Case #PB_Event_CloseWindow

quitMain=1

EndSelect

Until quitMain

FreePurePoint(hPoint)

ResetPurePoint()

EndIf

End