Shoutbox

I am using Msg Plus API, then I test the code:

code:

---

Public WithEvents MsgrUIA As MessengerAPI.Messenger
Public mWindow As MessengerAPI.IMessengerWindow
Public MsgrContact As MessengerAPI.IMessengerContact

Private Sub Command1_Click()
MsgBox ("My SigninName = " & CStr(MsgrUIA.MySigninName))
End Sub

---

But it returns the same Error :

Object Variable or With Block variable not set

What is wrong? Thanks!!