Private Sub Form_Load()
   TreeView1.Checkboxes = True
   TreeView1.Style = tvwTreelinesPlusMinusText
   TreeView1.LineStyle = tvwRootLines
   TreeView1.LabelEdit = tvwManual
 
   TreeView1.Nodes.Add , , "B1", "Lieferant 1"
   TreeView1.Nodes.Add , , "B2", "Lieferant 2"
 
   TreeView1.Nodes.Add "B1", tvwChild, "C1-1", "Artikel 1"
 
   TreeView1.Nodes.Add "C1-1", tvwChild, "C1-1-1", "Farbe 1"
   TreeView1.Nodes.Add "C1-1", tvwChild, "C1-1-2", "Farbe 2"
 
   TreeView1.Nodes.Add "B2", tvwChild, "C2-1", "Artikel 1"
   TreeView1.Nodes.Add "B2", tvwChild, "C2-2", "Artikel 2"
End Sub
 
Private Sub TreeView1_NodeCheck(ByVal Node As MSComctlLib.Node)
   Text1.Text = Node.Text
End Sub