VB 如何调用MessengerAPI?

Public WithEvents msn As MessengerAPI.Messenger

Private Sub Form_Load()
Set msn = New MessengerAPI.Messenger
End Sub

这样写老是提醒我控件不能创建对象！
为什么？？？

---

没有见过，，，

---

有没有引用对象呢？

Public WithEvents msn As Object

Private Sub Form_Load()
Set msn = CreateObject("MessengerAPI.Messenger")
End Sub

---

要安装msn；
查一查MessengerAPI.Messenger对应的组件是什么，手工注册一下。

---

TechnoFantasy
这位仁兄好强!

---

我已经正常引用了Messenger API Type Libary

Private msnmsgr As IMessenger

Private Sub Form_Load()
Set msnmsgr = New MessengerAPI
End Sub

这段我也试过，一样出错。