Shoutbox

hmm thats still not detecting it i changed it to:

code:

---

Private Sub messengerapi_OnMyStatusChange(hr As Long, mMyStatus As MISTATUS)
If mMyStatus = MISTATUS_ONLINE Then
Check1.Enabled = True
Else
Check1.Enabled = False
End If
End Sub

---

And Check1 remains disabled.
And also all the contacts in my contactlist are duplicated so theres 2 of them, do u know y this happens or is it my code?