Sub sInviaSms(Numero As String, Messaggio As String,Num As Int,MessConPdf As String )
Dim r As Reflector
r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
Dim parts As Object
parts = r.RunMethod2( "divideMessage", MessConPdf, "java.lang.String")
r.RunMethod4( "sendMultipartTextMessage", Array As Object(Numero , Null, parts, Null, Null), Array As String("java.lang.String", "java.lang.String","java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
End Sub