Italian Mp3 e chiamata in arrivo

Dim PhoneId As PhoneId
Dim PE As PhoneEvents
PE.InitializeWithPhoneState("PE", PhoneId)  'sottolineato in violetto

Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    If State = "RINGING" Then
    '....   
    End If
End Sub

Sub Process_Globals
   Private PhoneId As PhoneId
   Private PE As PhoneEvents
End Sub

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

Sub Service_Destroy
   PE.StopListening
End Sub

Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
   Log("State: " & State)
   Log("Num  : " & IncomingNumber)
   If IncomingNumber = "123456789* Then
        CallSubDelayed(NomeDellaActivityCheContieneIlPlayer, "StopPlaying")
   End If
End Sub

Dim mPhoneId As PhoneId
Dim PE As PhoneEvents

'in activity create
PE.InitializeWithPhoneState("PE", mPhoneId)


Sub PE_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
    If State = "RINGING" Then
      if sp.isplaying then
              bottonepausa_click   
    End If
End Sub