Private Sub Form_Load()
    Dim tv As TreeView
    Set tv = Me.TreeView0.Object
    Set tv.ImageList = Me.ImageList1.Object
    With tv.Nodes
        .Add , ,  "aaa" ,  "aaa" 
        .Add , ,  "bbb" ,  "bbb" 
        Set .Item( "bbb" ).Parent = .Item( "aaa" )
        .Item( "aaa" ).Image =  1 
        .Item( "aaa" ).ExpandedImage =  2 
    End With
End Sub

Private Sub TreeView0_BeforeLabelEdit(Cancel As Integer)
    MsgBox  "Накуй накуй" 
    Cancel = True
End Sub