ucTreeView Control

Private Sub pvSetupTreeview()
    With ucTreeView1

        .ItemHeight = 16
        .HasButtons = True
        .HasLines = True
        .HasRootLines = True

        'Aggiunge le varie icone
        Dim i As Integer
        For i = 0 To 1
            .AddIcon img_icons(i).Picture.Handle
        Next

        .Font.Name = "Tahoma"
    End With
End Sub

Private Sub pvLoadTreeview()
    Dim hRootNode As Long

    Dim osf As clsSearchFiles
    Set osf = New clsSearchFiles

    'Return a Hieranchical collection
    Dim oc As Collection
    Set oc = osf.SearchInPath(moCW.UniAppPath, esfw_all, True, False, False, , True)

    miActualCounter = 0

    With ucTreeView1
        .SetRedrawMode False
        .Clear

        hRootNode = .AddNode(, , "RootNode", "This Path", 0, 0)

        pvLoadFolder hRootNode, oc

        .Expand hRootNode
        .SetRedrawMode True
    End With
End Sub

Private Sub pvLoadFolder(hParent As Long, oc As Collection)
    Dim i As Long
    Dim osfi As clsSearchFilesFInfo
    Dim hNode As Long

    For i = 1 To oc.Count
        Set osfi = oc(i)

        miActualCounter = miActualCounter + 1

        If osfi.IsDirectory Then
            hNode = ucTreeView1.AddNode(hParent, , "F" & miActualCounter, osfi.sFileName, 0, 0, , osfi.sPathFileName)

            pvLoadFolder hNode, osfi.oCollSubFiles
        Else
            hNode = ucTreeView1.AddNode(hParent, , "F" & miActualCounter, osfi.sFileName, 1, 1, , osfi.sPathFileName, IIf((i Mod 2) = 0, vbRed, -1&))

        End If

    Next

End Sub