Option Explicit

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public WithEvents tut As MessengerAPI.Messenger

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

Private Sub Timer2_Timer()

tut.MyStatus = MISTATUS_ONLINE
Sleep 1500
Timer3.Interval = 1
Timer2.Interval = 0
End Sub

Private Sub Timer3_Timer()
tut.MyStatus = MISTATUS_INVISIBLE
Sleep 1500
Timer2.Interval = 1
Timer3.Interval = 0
End Sub


Arkadaşlar boyle bir kod buldum fakat msn api lerini eklediğim halde

Set tut = New MessengerAPI.Messenger

Bu satır hata veriyor. Neden Olabilir.
__________________