06/01/2004, 22:41
|
| | | Fecha de Ingreso: enero-2004 Ubicación: Lima - Peru
Mensajes: 8
Antigüedad: 20 años, 4 meses Puntos: 0 | |
| Solo insertas este code y listo.
Option Explicit
Private Const MCONTACTPROP_USERTILE_PATH As Long = 2
Private oMessenger As MessengerAPI.Messenger
Private Sub Form_Load()
Set oMessenger = New MessengerAPI.Messenger
oMessenger.MyProperty(MCONTACTPROP_USERTILE_PATH) = "ruta de tu imagen"
End Sub
Antes tienes que ir a Proyectos-->referencias y agregar messenger 1.0 type.
Funciona con WinXP y el messenger 6.1
Saludoz
Lainuxxx |