que no funciona???
,mira esto:
y en el form esto:
,mira esto:Código [Seleccionar]
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 Functiony en el form esto:
Código [Seleccionar]
Private Sub Form_Load()
Call Listar(List1)
End Sub
,bueno los errores que tira son ,de los colores menos del color del texto,es en una funcion del usercontrol GetRGb,y la propiedad panelopen parece no andar,todo esto es en el form1...pero se arregla y chau ...esta muy bueno..
,es malo ya se