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