Does anyone know of a way to bold text in the root of a tree structure?

Private Sub Form_Load()
    
    Dim nodX As Node
   
  'add some test items
   Set nodX = tvListRpt.Nodes.Add(, , "R", "Reports")
   Set nodX = tvListRpt.Nodes.Add("R", tvwChild, "C1", "Suspense Reports")
   Set nodX = tvListRpt.Nodes.Add("C1", tvwChild, "C11", "Basic Suspense")



Thanks.