TreeViewのNodeを上下/親子へ移動するには？ (ID:110578)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 失礼しました。 「B1をC1の前に移動させる」のではなく、 「C1をB1の後に移動させる」のですね。 Private Sub Command1_Click() Dim R As Node With Me.TreeView1 Set R = .Nodes(1).Root Set .Nodes("C1").Parent = R Set .Nodes("B1").Parent = R Set .Nodes("A1").Parent = R Set R = Nothing End With End Sub