mir ist was bei FreeGadget aufgefallen, was sehr eigenartig ist.
Okey, ich kann es ignorieren, aber es geht um Prinzip.
Folgendes Beispiel:
Code: Alles auswählen
If OpenWindow(0,0,0,500,500,"Test",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If CreateGadgetList(WindowID(0))
EndIf
For a=1 To 50
FreeGadget(a)
Next
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf

Wieso davor nicht?