Does anyone know how to ,in visual basic with ActiveS,automatically answer a call ?
Or to always monitor the skype status ?

I try to make an infinite loop but the app. blocks.
CODE


       Dim mycalls As SKYPEAPILib.Call

       Dim calls As SKYPEAPILib.CallCollection





       Do While 1 = 1





           calls = m_skype.GetCallList

           For Each mycalls In calls



               If mycalls.Status = SKYPEAPILib.SkypeCallProgress.prgRinging Then

                   mycalls.Status = SKYPEAPILib.SkypeCallProgress.prgInProgress

               End If



           Next



       Loop



smile.png