Sub AddMessageToLogs(body As String, address As String)
Dim r As Reflector
r.Target = r.CreateObject("android.content.ContentValues")
r.RunMethod3("put", "address", "java.lang.String", address, "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("[B][COLOR="Red"]content://sms/sent[/COLOR][/B]"), _
Array As String("java.lang.String")), _
contentValues), Array As String("android.net.Uri", "android.content.ContentValues"))
End Sub