下記のようにFor〜To文で回し、アイテムを追加したいのですが、
●の部分で「実行時エラー35602、コレクション内で固有のキーではありません」
と出て、止まってしまいます。
配列要素をツリービューのアイテムに連続追加する方法はないでしょうか？
**************************

    Dim NodeX As Node
    Dim Cnt(3) As String
    
    Cnt(0) = "りんご"
    Cnt(1) = "バナナ"
    Cnt(2) = "みかん"
    Cnt(3) = "イチゴ"
    i = 1
　  Set NodeX = TreeView.Nodes.Add(, , "kudamono", "果物")
    
    For i = 0 To 3
●      Set NodeX = TreeView.Nodes.Add("kudamono", tvwChild, "kuda_Name", Cnt(i))
    Next i

> ●の部分で「実行時エラー35602、コレクション内で固有のキーではありません」
> と出て、止まってしまいます。

であれば、同じキーを指定しなければ良いのでは。

> であれば、同じキーを指定しなければ良いのでは。

そうですね。
よく考えてみれば、そうでした。
私の早とちりでした。ありがとうございました。