Shoutbox

code:

---

Option Explicit
Private WithEvents Wouter As MessengerAPI.Messenger

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

Private Sub Wouter_OnContactStatusChange(ByVal pMContact As Object, ByVal mStatus As MessengerAPI.MISTATUS)
  If mStatus = MISTATUS_OFFLINE Then
  MsgBox LoadGroeps(pMContact.SigninName)
  End If
End Sub

Private Function LoadGroeps(contact As String) As String
Dim MsgrGroups As IMessengerGroups
Dim MsgrGroup As IMessengerGroup
Dim MsgrContacts As IMessengerContacts
Dim MsgrContact As IMessengerContact
  Set MsgrGroups = Wouter.MyGroups
  For Each MsgrGroup In MsgrGroups
      Set MsgrContacts = MsgrGroup.Contacts
      For Each MsgrContact In MsgrContacts
        If MsgrContact.SigninName = contact Then
          LoadGroeps = MsgrGroup.Name
        End If
      Next
  Next
End Function

---

here you go
i dont have anytime to make this into a plugin so if you want jackass_wanabe  you can use this