If Not IsNothing(pLocator) Then 'pGeocodingProperties = CType(pLocator, IGeocodingProperties2) '10/25/2010, cannot cast Arc9 Locator to IGeocodingProperties2, go back to older interface pGeocodingProperties = CType(pLocator, IGeocodingProperties) ''print out the ESRI default properties BEFORE resetting them: Debug.Print("SpellingSensitivity: " & pGeocodingProperties.SpellingSensitivity.ToString) Debug.Print("MinimumCandidateScore: " & pGeocodingProperties.MinimumCandidateScore.ToString) Debug.Print("MinimumMatchScore: " & pGeocodingProperties.MinimumMatchScore.ToString) Debug.Print("SideOffset: " & pGeocodingProperties.SideOffset.ToString) Dim iEsriUnits As Int32 = pGeocodingProperties.SideOffsetUnits 'esriSystem.esriUnits Select Case iEsriUnits Case 0 Debug.Print("SideOffsetUnits: Unknown") Case 1 Debug.Print("SideOffsetUnits: Inches") Case 2 Debug.Print("SideOffsetUnits: Points") Case 3 Debug.Print("SideOffsetUnits: Feet") Case 4 Debug.Print("SideOffsetUnits: Yards") Case 5 Debug.Print("SideOffsetUnits: Miles") Case 6 Debug.Print("SideOffsetUnits: Nautical miles") Case 7 Debug.Print("SideOffsetUnits: Millimeters") Case 8 Debug.Print("SideOffsetUnits: Centimeters") Case 9 Debug.Print("SideOffsetUnits: Meters") Case 10 Debug.Print("SideOffsetUnits: Kilometers") Case 11 Debug.Print("SideOffsetUnits: Decimal degrees") Case 12 Debug.Print("SideOffsetUnits: Decimeters") Case Else Debug.Print("SideOffsetUnits: other") End Select Debug.Print("MatchIfScoresTie: " & pGeocodingProperties.MatchIfScoresTie.ToString) Debug.Print("AddXYCoordsToMatchFields: " & pGeocodingProperties.AddXYCoordsToMatchFields.ToString) Debug.Print("AddReferenceIDToMatchFields: " & pGeocodingProperties.AddReferenceIDToMatchFields.ToString) Debug.Print("AddPercentAlongToMatchFields: " & pGeocodingProperties.AddPercentAlongToMatchFields.ToString) 'Debug.Print("AddStandardizeStringToMatchFields: " & pGeocodingProperties.AddStandardizeStringToMatchFields.ToString) With pGeocodingProperties .SpellingSensitivity = 63 .MinimumCandidateScore = 10 .MinimumMatchScore = 30 .SideOffset = 20 .SideOffsetUnits = esriUnits.esriFeet .AddXYCoordsToMatchFields = True .AddReferenceIDToMatchFields = True .AddPercentAlongToMatchFields = True '.AddStandardizeStringToMatchFields = True '10/04/2010, ArcGIS 10.0 bug: AddStandardizeStringToMatchFields: "The method or operation is not implemented."} System.NotImplementedException '10/08/2010, the Output Fields checkbox for "Standardized address" is grayed-out in ArcCatalog 10.0 Locator Properties for "US Address -Dual Zone" End With val = pLocator ''NOW print out the properties AFTER resetting them: Debug.Print(vbNewLine & "SpellingSensitivity: " & pGeocodingProperties.SpellingSensitivity.ToString) Debug.Print("MinimumCandidateScore: " & pGeocodingProperties.MinimumCandidateScore.ToString) Debug.Print("MinimumMatchScore: " & pGeocodingProperties.MinimumMatchScore.ToString) Debug.Print("SideOffset: " & pGeocodingProperties.SideOffset.ToString) 'Dim iEsriUnits As Int32 = pGeocodingProperties.SideOffsetUnits 'esriSystem.esriUnits Select Case iEsriUnits Case 0 Debug.Print("SideOffsetUnits: Unknown") Case 1 Debug.Print("SideOffsetUnits: Inches") Case 2 Debug.Print("SideOffsetUnits: Points") Case 3 Debug.Print("SideOffsetUnits: Feet") Case 4 Debug.Print("SideOffsetUnits: Yards") Case 5 Debug.Print("SideOffsetUnits: Miles") Case 6 Debug.Print("SideOffsetUnits: Nautical miles") Case 7 Debug.Print("SideOffsetUnits: Millimeters") Case 8 Debug.Print("SideOffsetUnits: Centimeters") Case 9 Debug.Print("SideOffsetUnits: Meters") Case 10 Debug.Print("SideOffsetUnits: Kilometers") Case 11 Debug.Print("SideOffsetUnits: Decimal degrees") Case 12 Debug.Print("SideOffsetUnits: Decimeters") Case Else Debug.Print("SideOffsetUnits: other") End Select Debug.Print("MatchIfScoresTie: " & pGeocodingProperties.MatchIfScoresTie.ToString) Debug.Print("AddXYCoordsToMatchFields: " & pGeocodingProperties.AddXYCoordsToMatchFields.ToString) Debug.Print("AddReferenceIDToMatchFields: " & pGeocodingProperties.AddReferenceIDToMatchFields.ToString) Debug.Print("AddPercentAlongToMatchFields: " & pGeocodingProperties.AddPercentAlongToMatchFields.ToString) 'Debug.Print("AddStandardizeStringToMatchFields: " & pGeocodingProperties.AddStandardizeStringToMatchFields.ToString) End If