Option Explicit

Private Sub Form_Load()
  With TreeView1
    .UseVisualStyle = True
    .Appearance = xtpAppearanceResource
    .Nodes.Add , , "base:0", "Some text"
    .Nodes.Add "base:0", xtpTreeViewChild, "child:0", "Some longer text"
    .Nodes.Add "base:0", xtpTreeViewChild, "child:1", "Even some longer text"
    .Nodes.Add "base:0", xtpTreeViewChild, "child:2", "The can text can be longer"
    .Nodes.Add "base:0", xtpTreeViewChild, "child:3", "This text is that long that a tooltip will appear, however I can't always be clicked anymore when compiled"
    .Nodes("base:0").Expanded = True
  End With
End Sub

Private Sub Command1_Click()
  Dim f As Form1
  
  Set f = New Form1
  f.Show vbModal
End Sub

Private Sub TreeView1_NodeClick(ByVal Node As XtremeSuiteControls.TreeViewNode)
  Label1.Caption = Node.Text
End Sub