为什么类型会不匹配？该怎么解决

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

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