[Visual Basic 6.0]
Dim pPropertySet As esriSystem.IPropertySet
Dim pUID As New esriSystem.UID
Dim pLocatorManager As esriLocation.ILocatorManager
Dim pLocatorWorkspace As esriGeoDatabase.ILocatorWorkspace
'+++ specify the required properties for a locator style
Set pPropertySet = New esriLocation.GenericLocatorStyle
With pPropertySet
  .SetProperty "Name", """Custom Locator Style"""""
  .SetProperty "Description", """Custom Locator Style"""
  .SetProperty "Category", "Address"
  pUID.Value = "esriLocation.LocalAddressLocator"
  .SetProperty "CLSID", pUID.Value
  pUID.Value = "esriLocationUI.AddressLocatorUI"
  .SetProperty "UICLSID", pUID.Value
  '+++ additional properties must be specified to create an address locator style
  '+++ that can be used with the ArcGIS Desktop geocoding user interfaces; for
  '+++ information on creating custom locator styles, refer to the book "Geocoding
  '+++ in ArcGIS"
End With
'+++ add the new locator style to the default local locator workspace
Set pLocatorManager = New esriLocation.LocatorManager
Set pLocatorWorkspace = pLocatorManager.GetLocatorWorkspaceFromPath("")
pLocatorWorkspace.AddLocatorStyle "Custom Locator Style", "Address", pPropertySet