Private Sub clearTreeView(treeView_ As Object)
  Dim i As Long
  
  For i = treeView_.Nodes.count To 1 Step -1
    treeView_.Nodes.Remove i
  Next i
End Sub

Private Sub clearTreeView(TreeView_ As TreeView)
  Dim i As Integer

  With TreeView_.Nodes
    For i = .Count To 1 Step -1
      .Remove i
    Next i
  End With
End Sub

The usual Clear method for TreeViews is painfully slow; this is a quicker alternative. It clears all nodes in a TreeView.

clearTreeView(Object)

Visual Basic