holas
  
  Me pedido hacer una aplicación q tiene que constantemente tener una lista de los contactos conectados del msn abierto en la pc en la que este abierto.

 El problema que el código que conseguí carga mucho el procesador, este hace trabajar a mi  app y a el Messenger demasiado en el momento q se realiza la lectura.

 Acá les dejo el script que uso:

 Private objMsn As Object
 
 Private Sub Form_Load()
   Set objMsn = CreateObject("Messenger.UIAutomation")
 End Sub
 
 Private Sub Timer1_Timer()
  For Each contacto In objMsn.mycontacts
   If contacto.Status = 2 And contacto.signinname = strCont Then call play(strCont: Timer1.Enabled = False)
  Next
 End Sub
 
 Private Sub Form_Unload(Cancel As Integer)
  Set objMsn = Nothing
 End Sub
 
 

      LO que ando precisando es un código que pueda hacerlo sin copar tanto el procesador. Graciass#

usa la funcion sleep o DoEvents