آقا من تابع فراخوانی کردم و متن از طریق تابع به یک شماره خاص ارسال کردم ولی جواب نداد ولی بازم خوشبختانه دیگه با خطا قید شده مواجه نشدم.در ضمن بنده دستور فوق را مستقیم در برنامه قرار دادم بازم sms ارسال نشد. که کد آن به شرح فوق است
Sub btnsend_Click
Dim d1 As InputDialog
d1.InputType = d1.INPUT_TYPE_PHONE
d1.Hint = "فرمت 09000000000"
d1.HintColor = Colors.LightGray
d1.Show("لطفا شماره تماس را وارد کنید","ارسال گزینه","قبول","انصراف","",LoadBitmap(File.DirAssets,"ok.gif"))
If d1.Response = DialogResponse.POSITIVE AND d1.Input <> "" Then
Dim ps As PhoneSms
Dim r As Reflector
r.Target = r.RunStaticMethod("android.telephony.SmsManager", "getDefault", Null, Null)
Dim parts As Object
parts = r.RunMethod2("divideMessage",txttrick.Text, "java.lang.String")
r.RunMethod4("sendMultipartTextMessage", _
Array As Object(d1.Input, Null, parts, Null, Null), _
Array As String("java.lang.String", "java.lang.String", _
"java.util.ArrayList", "java.util.ArrayList", "java.util.ArrayList"))
'myCode.SendLargeSms(d1.Input,loadData2(sID))
myCode.playBeep
' ToastMessageShow("لینک گزینه انتخاب شده ارسال شد",False)
End If
End Sub