Option Explicit
 
Private Sub Form_Load()
  ' TreeView füllen
  With TreeView1.Nodes
    .Add , , "root", "Root"
    .Add "root", tvwChild, , "Eintrag 1"
    .Add "root", tvwChild, , "Eintrag 2"
    .Add "root", tvwChild, , "Eintrag 3"
  End With
  TreeView1.Nodes(1).Expanded = True
End Sub
 
 
Private Sub Timer1_Timer()
  ' CheckBox des Root-Node-Eintrags entfernen
  Timer1.Enabled = False
  TreeView1.Nodes(1).Checked = False
End Sub
 
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
  If Node.Index = 1 Then
    ' Timer starten
    Timer1.Interval = 50
    Timer1.Enabled = True
  End If
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de