Option Explicit
 
Private Type tProgramme
  Category As String
  Name As String
  Ordnername As String
End Type
 
Private Sub Form_Load()
  With cboCategories
    .AddItem "alle"
    .AddItem "Anti-Virus"
    .AddItem "Office2"
    .AddItem "System"
  End With
 
  Dim intZähler As Integer
 
  intZähler = 2
  ReDim Programme(intZähler) As tProgramme
  Programme(0).Category = "Anti-Virus"
  Programme(0).Name = "Ad-Aware 2007"
  Programme(0).Ordnername = "ordner1"
  Programme(1).Category = "Anti-Virus"
  Programme(1).Name = "AVG 7.5 Free"
  Programme(1).Ordnername = "ordner2"
  Programme(2).Category = "Anti-Virus"
  Programme(2).Name = "Spybot"
  Programme(2).Ordnername = "ordner3"
 
 
  Dim i As Integer
  Dim tmpNode As Node
  Set tmpNode = TreeView1.Nodes.Add(, , "Root", "Disc", "Root", "Root")
  tmpNode.Expanded = True
 
  For i = 1 To cboCategories.ListCount - 1
    TreeView1.Nodes.Add "Root", tvwChild, cboCategories.List(i), _
      cboCategories.List(i), "ordnerzu", "ordneroffen"
  Next i
 
  For i = 0 To intZähler
    TreeView1.Nodes.Add(Programme(i).Category, tvwChild, Programme( _
      i).Ordnername, _
      Programme(i).Name, Programme(i).Ordnername, _
      Programme(i).Ordnername).Tag = i
  Next i
End Sub
 
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
  Debug.Print Node.Text
End Sub

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de