Yes i have got reference to the Messenger API
and this is the code im using to load it.
code:
Option Explicit
Private WithEvents objMessenger As MessengerAPI.Messenger
Then inside my forms load:
code:
Set objMessenger = New MessengerAPI.Messenger
And with this code check1.enabled always equals false even on login (this is using modifiend code of jackass_wanabee's on page 1:
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
