duda tonta...

[hAcKeR92]

Va a parecer absurdo pero no se donde se deben colocar las declaraciones de API... me lo podeis explicar???

yo pongo esto pero me da error:

Public WithEvents MSN As Messenger

Private Sub Form_Load()
Set MSN = New Messenger
MsgBox MSN.MyStatus
End Sub

[((( SPAWN )))]

Hola, podes crear un modulo y meter todas las apis ahi, de esa manera tienen un alcance global.
Para agregar un modulo hace click en el menu Proyecto --> Agregar Modulo.

[hAcKeR92]

lo agrego al modulo pero me dice:

"Compile Error: Only valid in object module"

Que significa esto???

[((( SPAWN )))]

Hola:

"Compile Error: Only valid in object module"

Esto quiere decir q la declaracion q hiciste no va en ese tipo de modulo.
Antes q nada asegurate de tildar la referencia a la API del messenger en Proyecto --> Referencias --> "Messenger API Type Library", despues declaras en la sección de General del form asi

Código [Seleccionar] Expandir


Public WithEvents MSN As Messenger


Código [Seleccionar] Expandir


Private Sub Form_Load()
    Set MSN = New Messenger --> se crea una instancia del tipo messenger
End Sub

Private Sub Command1_Click()
    If MSN.MyStatus = MISTATUS_INVISIBLE Then
        MsgBox "estas como no conectado"
    End If
End Sub

Saludos.