Delete Recieved Messages via VB

[Pooya511]

this code can empty inbox in VB.

Set BT_Radios = BFBluetoothDiscoveryX1.EnumRadios
Set BT_Devs = BFBluetoothDiscoveryX1.Discovery(BT_Radios.Radio(0), True, False, True)
BFGSMModemClientX1.OpenDevice
Set BT_SMSes = BFGSMModemClientX1.ReadSMSes(msAll, True)
For i = 0 To BT_SMSes.Count - 1
    List1.AddItem BT_SMSes.SMS(i).Phone & "  " & BT_SMSes.SMS(i).Text
    If BT_SMSes.SMS(i).SmsType = mtDeliver Then BFGSMModemClientX1.DeleteSMS (i + 1)
Next i