Public Sub InitHelp()
With Form1.tvwHelp
    .ImageList = Form1.ImageList2
    .Nodes.Clear
    Set oNode = .Nodes.Add(, , "root", "Index", 1)
    oNode.Expanded = True
End With
End Sub
 
Public Sub AddHelp(sText As String)
Form1.tvwHelp.Nodes.Add "root", tvwChild, , sText
End Sub

Manchmal verliert man, manchmal gewinnen die Anderen...