'заполняю тривью
TreeViewBrandPartner_Fill Me!tv_NomenclatureSelection_BrandPartner
'чекаю ноды
Dim t As Node
    For Each t In Me!tv_NomenclatureSelection_BrandPartner.Nodes
        t.Checked = True
' пробовал с таймером... был пример на форуме
'        Set CheckedNode = t
'        Me.TimerINTERVAL = 10
    Next