Dim tvw As TreeView
    Dim nod As Node

    Set tvw = Me.tvwArtists.Object
    
    With tvw
        .ImageList = Me.imglst.Object
    End With

    Set nod = Me.tvwTreeView.Nodes.Add()
    With nod
        .Text = ...
        .Tag = ...
        .Image =  1  ' Индекс картинки в ImageList.
    End With

    Set nod = Me.tvwTreeView.Nodes.Add( 1 , tvwChild)
    With nod
        .Text = ...
        .Tag = ...
        .Key = ...
        .Image =  2  ' Индекс картинки в ImageList.
        .SelectedImage =  3  ' Индекс картинки в ImageList, когда узел выделен.
    End With

        .Text = "Текст для отображения"
        .Tag = "Дополнительная информация"