Sub SI_MessageReceived (From As String, Body As String) As Boolean
'ToastMessageShow(From, True)
' εδω ελέγχω αν με ανδιαφέρει το μηνυμα
myTXT= Body
myTXT=myTXT.ToLowerCase
ToastMessageShow("receive sms" ,False)
If myTXT.Contains("position")=True Then
'sent an sms to receipient
'myTXT="Lon="& Mhkos &" " & "Lat=" & Platos
myTXT="Τελευταία γνωστή θέση την " & Hmeromhnia & " ώρα " & Vra & CRLF
myTXT= myTXT & "https://maps.google.com/maps/place?q=" & Platos &"," & Mhkos
'SenSms.Send(Ar_kinhtoy,myTXT)
SenSms.Send("0030693665xxx",myTXT)
ToastMessageShow("Send position", True)
Return True ' if return true the message aborted I want to abord the message
End If