调用点击treeview某一节点的问题？

[zergs]

我有下面一段程序：
Private Sub Treeview1_NodeClick(ByVal Node As MSComctlLib.Node)
Call OnDtOpenDt
End Sub
然后我想在form.load程序里，调用点击treeview某一节点（node.key="db")的程序.应该在form.load怎么调用,怎么写?谢谢!

[射天狼]

Option Explicit

Private Sub Form_Load()
TreeView1.Nodes.Add , , "db", "aaaa"
TreeView1.Nodes.Add , , , "bbbb"

TreeView1_NodeClick TreeView1.Nodes("db") '调用

End Sub

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
If Node.Key = "db" Then MsgBox "dd"
End Sub