#Main=0

#Skin=1

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

If CreateGadgetList(WindowID(#Main))

PureSkin(#Main,#Skin,"MySkin.pvs",1)  ;<-- Loads PureSkin from File

PureSkinHide(#Main,0)

EndIf

quitMain=0

Repeat

Select WaitWindowEvent()

Case #PB_Event_CloseWindow

quitMain=1

EndSelect

Until quitMain

EndIf

End