Sub SendLargeSms(Destination As String, Message As String)
Dim ctxt As JavaObject
ctxt.InitializeContext
Dim smsManager As JavaObject
smsManager = smsManager.InitializeStatic("android.telephony.SmsManager").RunMethod("getDefault", Null)
Dim parts As JavaObject = smsManager.RunMethod("divideMessage", Array(Message))
Dim i As Intent
i.Initialize("b4a.smssent", "")
Dim pi As JavaObject
pi = pi.InitializeStatic("android.app.PendingIntent").RunMethod("getBroadcast", Array(ctxt, 0, i, 134217728))
'Dim size As Int = parts.RunMethod("getSize", Null)
Dim size As Int = parts.RunMethod("size", Null)
Dim al As JavaObject
al.InitializeNewInstance("java.util.ArrayList", Null)
For ii = 0 To size - 2
al.RunMethod("add", Array(Null))
Next
al.RunMethod("add", Array(pi))
smsManager.RunMethod("sendMultipartTextMessage", Array(Destination, Null, parts, al, Null))
End Sub