treeview的expand事件和node_click事件

我每次单步运行时，点击根结点就只运行node_click事件，不执行 expand事件
直接运行程序时，只能执行expand事件，我点击子节点时就没反应了，也不知道有没有执行node_click事件，大家帮我分析一下怎么解决这个问题，单步调试又不能用。

Private Sub TreeView1_Expand(ByVal Node As MSComctlLib.Node)
Node.Image = "opened"
End Sub


Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim i As Integer
i = 1
Node.Selected = True

'If Node.Children = 0 Then
For i = 1 To ListView1.ListItems.Count

If ListView1.ListItems(i).Key = Node.Key Then

ListView1.ListItems(i).Selected = True


End If
Next i
'Else: Node.Children.Show
'End If

End Sub