如何调用目录树控件的NodeClick事件

Option Compare Database

Public k As String '记录每个选中的节点的key值

Private Sub Form_Load()
   Call FunTreeView
End Sub

Private Sub LabNoteText_Click()
   Forms!frmsysMain.TreeMy.Nodes.Clear
   Call FunTreeView
   Forms!frmsysMain!TreeMy.SetFocus
  '在这里如何调用TreeMy_NodeClick事件？
   For I = 1 To Forms!frmsysMain.TreeMy.Nodes.Count  '循环节点
      If Forms!frmsysMain.TreeMy.Nodes(I).Key = k Then '找到K节点
        Forms!frmsysMain.TreeMy.Nodes(I).Expanded = True '展开K节点
        Forms!frmsysMain.TreeMy.Nodes(I).Selected = True '选中K节点
        Forms!frmsysMain.TreeMy.Nodes(I).EnsureVisible '让K节点可以看到，在比较多的树中，可能需要垂直滚动才能看到
        Exit For
      End If
    Next I
End Sub

Private Sub TreeMy_NodeClick(ByVal Node As Object)
    k = Node.Key  '每点击一次节点，就更新（或记录）选中的节点
    Me.LabNoteText.Caption = "当前工作节点：" & Node.Text
End Sub