Sub ev_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
'State - One of the three values: IDLE, OFFHOOK, RINGING. OFFHOOK means that there Is a call OR that the Phone Is dialing.
'IncomingCall - Available when the State value Is RINGING.
If State="RINGING" OR State="OFFHOOK" Then
stop_reading=True
Else
stop_reading=False
End If
ToastMessageShow(State,True)
End Sub