为什么类型会不匹配？？？
已知类模块：

Private m_TreeView As TreeView
Public Sub CreateTreeView(aTreeView As Object)
Set m_TreeView = aTreeView '错误A出
End Sub

FORM中调用

Private Sub Form_Load()
Dim m_TreeOpt As New CTreeOpt
m_TreeOpt.CreateTreeView TreeView1 '调用的时候跳到错误A处,报错： "类型不匹配? "
end Sub

[解决办法]
关注~试了一下好像没问题说

http://vip2.6to23.com/cqufsk/grenvb6/programming/reftree.rar