hAnimGadget=PVGadgets_InitAnimGadget()
#Window_Main=1
If OpenWindow(#Window_Main,175,0,282,68,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"Demo")
If CreateGadgetList(WindowID(#Window_Main))
Gadget_Main_Anim=PVGadgets_AnimGadget(hAnimGadget,#Window_Main,0,0,280,65,160)
PVGadget_AnimGadgetStop(Gadget_Main_Anim)
Repeat
Until WaitWindowEvent()=#PB_Event_CloseWindow
PVGadgets_FreeAnimGadget(hAnimGadget)
EndIf
EndIf
|