Shoutbox

So, I have antoher little problem. Maybe that's a stupid question, but...

I have now this sub:

code:

---

Private Sub Form_Load()

Set objMessenger = New MessengerAPI.Messenger
Set Contacts = objMessenger.MyContacts


End Sub


Private Sub objMessenger_OnContactStatusChange(ByVal pMContact As Object, ByVal mStatus As MISTATUS)

If pMContact.Status = MISTATUS_ONLINE Then
    Status = "online"
ElseIf pMContact.Status = MISTATUS_BUSY Then
    Status = "Busy"
ElseIf pMContact.Status = MISTATUS_AWAY Then
    Status = "away"
ElseIf pMContact.Status = MISTATUS_BE_RIGHT_BACK Then
    Status = "brb"
ElseIf pMContact.Status = MISTATUS_ON_THE_PHONE Then
    Status = "onphone"
ElseIf pMContact.Status = MISTATUS_OUT_TO_LUNCH Then
    Status = "lunch"
ElseIf pMContact.Status = MISTATUS_OFFLINE Then
    Status = "offline"
End If


   
End Sub

---

But  how the hell can I call it!? Should it be called automatically!?
I don't get it...

Thanks for helping



Greeeeeeez Tobiaz