ช่วยหน่อยครับเกี่ยว Messenger API

คือผมเขียนโปรแกรมควบคุมการทำงานต่าง ๆ ของ Windows Live แต่พอลองรันแล้วกลับกลายเป็นว่า Runtime error '7': Out of memory ไม่เข้าใจอ่ะเป็นเพราะอะไร ใครพอรู้วิธีบ้างครับว่ามีหลักการแก้ปัญหาตรงจุดนี้ยังไง

---------------------------------------------------------------
Option Explicit
Private Sub Command1_Click()
MessengerAPI.Messenger.MyStatus = MISTATUS_AWAY
End Sub

Private Sub Command2_Click()
MessengerAPI.Messenger.MyStatus = MISTATUS_BUSY
End Sub

Private Sub Command3_Click()
MessengerAPI.Messenger.MyStatus = MISTATUS_INVISIBLE
End Sub

Private Sub Command4_Click()
MessengerAPI.Messenger.MyStatus = MISTATUS_BE_RIGHT_BACK
End Sub

Private Sub Command5_Click()
MessengerAPI.Messenger.MyStatus = MISTATUS_IDLE
End Sub
---------------------------------------------------------