Private Sub ultraTree1_PropertyChanged(ByVal sender As Object, ByVal e As Infragistics.Win.PropertyChangedEventArgs) Handles ultraTree1.PropertyChanged
Dim pci As Infragistics.Shared.PropChangeInfo
' テキスト プロパティが変更されたかどうかを確認します
pci = e.ChangeInfo.FindPropId(Infragistics.Win.UltraWinTree.PropertyIds.Text)
If Not pci Is Nothing Then
' ソースがノードの場合、そのキーおよび新しい名前を表示します
If TypeOf (pci.Source) Is Infragistics.Win.UltraWinTree.UltraTreeNode Then
Dim node As Infragistics.Win.UltraWinTree.UltraTreeNode
node = pci.Source
Debug.WriteLine("Node " + node.Key + "'s text has changed to: " + node.Text)
End If
End If
End Sub