porque esto no me funciona?

[Sai-To]

bueno esta es mi duda:

Código [Seleccionar] Expandir

Public Function listar(lugar As String)
If lugar = "" Then
MsgBox ("Agrege un lugar donde listar"), vbCritical, skull: GoTo fin
End If

For Each user In MSN.MyContacts
    If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Then
        lugar.AddItem user.SigninName
    End If
Next
fin:
End Function

ese code va en un modulo .bas ahora si llamo la funcion desde el form1.. lo haria asi:

listar(form1.list1)

pero me tira error en la parte del modulo donde sale listar.additem.. que estoy haciendo mal como hago para que funcione??

[seba123neo]

Hola,eso esta mal,primero y principal no veo en ningun lugar que diga listar.additem,solo veo lugar.AddItem,y lugar es un string no es un objeto listbox  por lo tanto te tira ese error,tendrias que poner Public Function listar(lugar As Listbox)...

saludos.

[Sai-To]

hey ese code no me sirve! :S como lo arreglo!? si quiero llamar a una funcion desde el form1 y esa funcion se encuentra en un modulo, luego esa funcion liste en un listbox (Ya quespecificado en que form y su nombr por el usuraio) todos los contactos?

como lo hago! Buaaa

[seba123neo]

que no funciona???  ,mira esto:

Código [Seleccionar] Expandir

Public MSN As Messenger

Public Function Listar(lista As ListBox)
Dim user As MessengerAPI.IMessengerContact
Set MSN = New Messenger
For Each user In MSN.MyContacts
If user.Status = MISTATUS_ONLINE Or user.Status = MISTATUS_AWAY Or user.Status = MISTATUS_BE_RIGHT_BACK Then
lista.AddItem user.SigninName
End If
Next
End Function

y en el form esto:

Código [Seleccionar] Expandir

Private Sub Form_Load()
Call Listar(List1)
End Sub