Code: Select all
If OpenWindow(0, 216, 0, 290, 530, "", #PB_Window_SystemMenu | #PB_Window_TitleBar | #PB_Window_ScreenCentered)
TreeGadget(1, 30, 30, 230, 380)
AddGadgetItem(1,-1,"2010",0,0)
AddGadgetItem(1,-1,"2011",0,0)
AddGadgetItem(1,-1,"2012",0,2)
AddGadgetItem(1,-1,"2013",0,0)
AddGadgetItem(1,-1,"2014",0,2)
AddGadgetItem(1,-1,"2015",0,2)
AddGadgetItem(1,-1,"2016",0,2)
Debug CountGadgetItems (1)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf
End