Spanish Crear mi propia pantalla de respuesta de llamada entrante

Sub Process_Globals
   Dim PE As PhoneEvents
   Dim PhoneId As PhoneId

Sub Service_Create
   PE.InitializeWithPhoneState("PE",PhoneId)


Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
          
  Select State   
      Case "IDLE" ' inactivo
     
      Case "RINGING" ' Llamada entrante
        ' aqui haces tu codigo
         ' En IncomingNumber viene el número que llama por si quieres filtrar o hacer algo en concreto con ese número
           
    End Select

End Sub