; English forum: ; Author: El_Choni ; Date: If OpenWindow(0,150,150,300,200,#PB_Window_SystemMenu,"test") CreateGadgetList(WindowID()) ComboBoxGadget(0,10,10,100,150,0) ButtonGadget(1,120,10,50,20,"test") For r=1 To 10 : AddGadgetItem(0,-1,Str(r)) : Next Repeat ev=WaitWindowEvent() If ev=#PB_Event_Gadget Select EventGadgetID() Case 0 Debug "combo event -- selection: "+Str(GetGadgetState(0)+1) Case 1 Debug "button event" EndSelect EndIf Until ev=#PB_Event_CloseWindow EndIf ; ExecutableFormat=Windows ; CursorPosition=3 ; FirstLine=1 ; EnableXP ; EOF