treeview 控件的使用

Question

我想点击treeview控件中的一个结点时在文本框显示该结点，可有时不点击结点，直接将树形目录作展开收起操作，就出现如下错误（只要先点击过结点文本，再扩展或收起目录没有错误）
runntime 91
object variable or with block variable not set如在treeview1_click事件中代码如下Private Sub TreeView1_Click()
    Dim txt As String
    With TreeView1
        txt = .SelectedItem.Text
    End With
    txtElement.Text = txt
End Sub

Answer 1

TreeView1_NodeClick  使用这个事件

Answer 2

With TreeView1
        If Not .SelectedItem Is Nothing Then
            txt = .SelectedItem.Text
        End If
    End With

Answer 3

txt = .SelectedItem.Text=>If Not .SelectedItem Is Nothing Then
    txt = .SelectedItem.Text
End If