Code : Tout sélectionner
OpenWindow (0,10,10,200,200, #PB_Window_SystemMenu , "ess" )
CreateGadgetList ( WindowID (0))
TextGadget (52,0,50,100,20, "temps" ,#PB_Text_Border)
ButtonGadget(1,50,180,20,20,"1")
Repeat
event= WaitWindowEvent ()
Select event
Case #PB_Event_Gadget ; *****************Choix d'un bouton
Select EventGadget()
Case 1
ResizeGadget(52,50,180,20,-1)
EndSelect
EndSelect
Until event= #WM_CLOSE