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