Procedure TreeGadget_SetStateImageMask(Gadget,Item,fCheck) tvItem.TV_ITEM tvItem\mask = #TVIF_HANDLE | #TVIF_STATE tvItem\hItem = GadgetItemID(Gadget,Item) tvItem\stateMask = #TVIS_STATEIMAGEMASK; tvItem\state = fCheck << 12 SendMessage_(GadgetID(Gadget), #TVM_SETITEM,0,@tvItem); EndProcedure If OpenWindow(0,0,0,500,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered) TreeGadget(1,10,10,480,230,#PB_Tree_CheckBoxes) For a=1 To 10 AddGadgetItem(1,-1,"Item "+Str(a),0,0) Next TreeGadget_SetStateImageMask(1,4,16) Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow EndIf