title: Populating TreeView with column header and subheader
body: <p>I am new to tree view control and would like to populate my TreeView (two columns) with the header column as parent node and sub header as child nodes as shown:</p>
  
  <p><a href="https://i.stack.imgur.com/JHAhm.jpg" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/JHAhm.jpg" alt="tree view"></a></p>
  
  <p>I have started with the following code but I am stuck with it:  </p>
  
  <pre><code>Sub UserForm_Initialize()
  
      Dim WB As Workbook
      Dim WS As Worksheet
      Dim HeaderRng As Range
      Dim rng As Range
      Dim rCell As Range
      Dim i As Long
      Dim Nod As Node
  
      Set WB = ThisWorkbook
      Set WS = WB.Worksheets("Data")
      Set HeaderRng = WS.Range("A1:M1")
  
      With Me.TreeView1.Nodes
          .Clear
          For Each rCell In HeaderRng
              .Add Key:=rCell.Value, Text:=rCell.Value
          Next rCell
      End With
  
      TreeView1.CheckBoxes = True
      TreeView1.Style = tvwTreelinesPlusMinusText
      TreeView1.BorderStyle = ccFixedSingle
  
  End Sub
  </code></pre>