ISRegion.Parent

Example

Display the name of the parent for the specified region.

sub main
  Dim aPostCode
  Dim aRegions, aRegion
  Dim aMessage
                                                                         
  Set aPostCode = Profile.LookupPostCode("", "Golden", "CAN", "BC")                 
  if aPostCode is nothing then                                                    
    exit sub                                                                      
  end if                                                                          
                                                                                  
  set aRegions = aPostCode.Regions                                                
                                                                                  
  for each aRegion in aRegions                                                    
    aMessage = aMessage & vbNewLine & GetRegionInfo(aRegion, 0)                   
  next                                                                            
                                                                                  
  Profile.MsgBox(aMessage)                                                        
end sub                                                                           
                                                                                  
function GetRegionInfo(aRegion, aLevel)                                           
  Dim aInfo                                                                       
  Dim aRegionChildren 
  Dim aChildRegion                                                                                                                           
                                                                                  
  set aRegionChildren = aRegion.Children                                          
  aInfo = Space(4 * aLevel) & aLevel & " - " & aRegion.Name &_                    
    " (Children: " & aRegionChildren.Count                                        
                                                                                  
  if not aRegion.Parent is nothing then                                           
    aInfo = aInfo & "; Parent: " & aRegion.Parent.Name & ")"                      
  else                                                                            
    aInfo = aInfo & "; Parent: - )"                                               
  end if                                                                          
                                                                                  
  for each aChildRegion in aRegionChildren                                        
    aInfo = aInfo & vbNewLine & GetRegionInfo(aChildRegion, aLevel + 1)           
  next
                                                                                  
  GetRegionInfo = aInfo                                                           
end function