Sub AddSentSms(Address As String, Body As String)
   Dim r As Reflector
   Dim values As Object
   values = r.CreateObject("android.content.ContentValues")
   r.Target = values
   Dim s As String
   s = "java.lang.String"
   r.RunMethod4("put", Array As Object("type", 2), Array As String(s, "java.lang.Integer"))
   r.RunMethod3("put", "address", s, Address, s)
   r.RunMethod3("put", "body", s, Body, s)
   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/sent"), Array As String(s)), values), _
      Array As String("android.net.Uri", "android.content.ContentValues"))
End Sub