Shoutbox

clever clogs
like this

code:

---

Private Sub msn_OnContactStatusChange(pMContact As Object, mStatus As MISTATUS)
If mStatus = MISTATUS_ONLINE Then
Dim bToastResult As Boolean
bToastResult = DisplayToast("" & pMContact & "is now online", "New Group Online", "http://www.plasticangels.com", True)


End Sub

---

just duno how to define group