Sub AddMessageToLogs(Number As String, Body As String)
'http://www.b4x.com/android/forum/threads/sent-sms-messages-wont-appear-in-the-log.22939/
Dim r As Reflector
r.Target = r.CreateObject("android.content.ContentValues")
r.RunMethod3("put", "address", "java.lang.String", From, "java.lang.String")
r.RunMethod3("put", "body", "java.lang.String", Body, "java.lang.String")
Dim ContentValues As Object = r.Target
r.Target = r.GetContext
r.Target = r.RunMethod("getContentResolver")
r.RunMethod4("insert", Array As Object( _
r.RunStaticMethod("android.net.Uri", "parse", Array As Object("content://sms/inbox"), _ ' @@ !! .... "content://sms/sent" to write sent SMS to Logs
Array As String("java.lang.String")),ContentValues), Array As String("android.net.Uri", "android.content.ContentValues"))
End Sub