Sub pe_PhoneStateChanged (State As String, IncomingNumber As String, Intent As Intent)
#Region ' block numbers in db
' ------------------ Whit DB
c1 = sq1.ExecQuery("SELECT * FROM Black_table")
If c1.RowCount > 0 Then
For i = 0 To c1.RowCount - 1
c1.Position = i
Log("White Numbers:==="&c1.GetString("Number"))
' numbers = Array As String(c1.GetString("Number"))
' For x = 0 To c1.GetString("Number").Length -1 'numbers(i).Length
' If numbers(x).Trim.Contains(IncomingNumber) Then
If c1.GetString("Number").Contains(IncomingNumber) = False Then
ac.disableSpeakerphone
Kill_Call ' = False ျဖစ္လွ်င္ db မွာ မပါတဲ့နံပါတ္မ၀င္ရ ==========
''''''' ToastMessageShow(IncomingNumber, True)
''''''' Log("Incoming is:==="&IncomingNumber)
''''''' ac.LetPhoneRing(3000)
''''''' If ac.isRinging == True Then
''''''' ac.AnswerPhone
''''''' End If
''''''' ac.enableSpeakerphone
' Exit
' Else If c1.GetString("Number").Contains(IncomingNumber) = True Then
'' Exit
' ac.disableSpeakerphone
' Kill_Call
'' ToastMessageShow(IncomingNumber, True)
'' ac.LetPhoneRing(3000)
'' If ac.isRinging == True Then
'' ac.AnswerPhone
'' End If
'' ac.enableSpeakerphone
End If
' Next
Next
Else
ToastMessageShow("============", False)
End If
c1.Close
' =========================
#End Region
End Sub