ISRegion.Delete

Example

Delete the specified region.

Dim aPostCode
Dim aRegions, aRegion
Dim aMessage
Dim i, j 

Set aPostCode = Profile.LookupPostCode("", "Mara", "CAN", "BC")
set aRegions = aPostCode.Regions
  
aMessage =_
  "Country Code: " & VbTab & aPostCode.CountryCode & vbNewLine &_
  "Regions Count: " & VbTab & aRegions.Count
  
for i = 0 to aRegions.Count - 1
  set aRegion = aRegions.Item(i)
  aMessage = aMessage & vbNewLine &_
    "--- Region " & (i + 1) & " ---- " & vbNewLine &_  
    "    Code: " & vbTab & vbTab & aRegion.Code & vbTab & vbNewLine &_   
    "    Name: " & vbTab & aRegion.Name & vbNewLine &_  
    "    ID: " & vbTab & vbTab & aRegion.ID
next

aMessage = aMessage & vbNewLine & vbNewLine &_
  "----   Processing: ----- " & vbNewLine

for j = 0 to aRegions.Count - 1
  set aRegion = aRegions.Item(j)  
  aMessage = aMessage & vbNewLine &_
    "The region " & aRegion.Name & " was deleted "      
  aRegion.Delete
next

Profile.MsgBox (aMessage)