
Exemple (non testé)
Code : Tout sélectionner
Procedure AddButton(hWnd.l)
ButtonGadget(0, 10, 10, 80, 20, "Coucou")
Endprocedure
opt.l = je ne sais plus koi ...
hWnd = OpenWindow(0, 0, 0, 200, 200, opt, "Fenetre")
CreateGadgetList(WindowiD())
CreateThread(@AddButton(), hWnd)
Delay(2000)
Repeat
Until WaitWindowEvent() = #PB_Event_CloseWindow