#Main=0

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

hPoint=PurePoint("Cross.pvp")

quitMain=0

Repeat

UsePurePoint(hPoint)

Select WaitWindowEvent()

Case #PB_Event_CloseWindow

quitMain=1

EndSelect

Until quitMain

FreePurePoint(hPoint) ;<-- Free PurePoint Resources

EndIf

End