Dim aa As SmsMessages
Dim lista As List
Dim lista2 As List
Dim i As Int
lista.Initialize
lista=aa.GetAll
For i=0 To lista.Size-1
lista2=aa.GetByPersonId(i)
aa.deletesms(lista2.Get(i))
Next
Dim a As SmsMessages
Dim list1 As List
Dim aa, Id As String
Dim sta, sto As Int
list1=a.GetAll()
If list1.Size=0 Then Return
For i = list1.Size-1 To 0 Step -1
DoEvents
aa=list1.Get(i)
sta=aa.IndexOf("Body=")+5
sto=aa.IndexOf(", Address=")
Id=aa.SubString2(sta,sto)
Delete_Sms(Id)
next
Ok marcick,your code runs,only can change the string "sta",this is finally the code
B4X:
Dim mensajes As SmsMessages
Dim list1 As List
Dim aa, Id As String
Dim sta, sto As Int
list1=mensajes.GetAll()
If list1.Size=0 Then Return
For i = list1.Size-1 To 0 Step -1
DoEvents
aa=list1.Get(i)
sta=aa.IndexOf("Id=")+3
sto=aa.IndexOf(", ThreadId=")
Id=aa.SubString2(sta,sto)
mensajes.deletesms(Id)
Next