Italian Libreria chiamate

 Dim PE As PhoneEvents
    Dim AC As AnswerCall
    Dim PhoneId As PhoneId
    Dim Phone_ As Phone

Sub Service_Create

    PE.InitializeWithPhoneState("PE",PhoneId)
    AC.Initialize("AnswerCall")       
End Sub

Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    Dim x As Int
    AC.LetPhoneRing(3000)
   
'se il telefono sta squillando
    If AC.isRinging == True Then
        if IncomingNumber="12345666666" then
           'Silenziatore o quello che ti serve
           Phone_.SetRingerMode(Phone_.RINGER_SILENT)
        else
           'riporti tutto allo stato iniziale
           Phone_.SetRingerMode(Phone_.RINGER_NORMAL)
        end if
   end if       
End Sub