frmststan.frm

Unzip this file into a writeable directory. You should end up with a "Geocode" project, as well as

VERSION 5.00
Begin VB.Form frmStStan 
   Caption         =   "Form2"
   ClientHeight    =   4248
   ClientLeft      =   60
   ClientTop       =   348
   ClientWidth     =   4596
   Icon            =   "frmStStan.frx":0000
   LinkTopic       =   "Form2"
   ScaleHeight     =   4248
   ScaleWidth      =   4596
   StartUpPosition =   3  'Windows Default
   Begin VB.TextBox txtKeyField 
      Height          =   375
      Index           =   0
      Left            =   840
      Locked          =   -1  'True
      TabIndex        =   1
      Text            =   "Text1"
      Top             =   120
      Width           =   3615
   End
   Begin VB.Label lblKeyField 
      Caption         =   "Label1"
      Height          =   375
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   615
   End
End
Attribute VB_Name = "frmStStan"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'
' frmStStan.frm - Displays the standardization of a PlaceName
'
' Part of Geocode.vbp
'
' Author: Andy Bouffard, ESRI(UK) Ltd.; from an original demo by Agatha Tang, ESRI Inc.
' Modified by Victoria Kouyoumjian, ESRI - Redlands, June, 1999.
' History: Initial ESRI(UK) version - Nov. 13 1998
'
Option Explicit

Private Sub Form_Load()

  Dim success As Boolean
  Dim place As String
  Dim i As Integer
  Dim numfields As Integer

  frmStStan.Caption = "Place Name Standardization"
  
  place = frmGeocode.txtAddr.Text
  success = stan.StandardizeAddress(place)
 
  If success Then
    frmGeocode.txtAddr.DataChanged = False
    lblKeyField(0).AutoSize = True
    lblKeyField(0).Visible = True
    txtKeyField(0).Height = lblKeyField(0).Height
    txtKeyField(0).Text = ""
    txtKeyField(0).Visible = True
    
    lblKeyField(0).Caption = stan.FieldName(0)
    txtKeyField(0).Left = lblKeyField(0).Left + lblKeyField(0).Width + 100
    
    numfields = stan.FieldCount
    txtKeyField(0).Text = stan.FieldValue(lblKeyField(0).Caption)
    frmStStan.Height = txtKeyField(numfields - 1).Top + 800
    CenterForm Me
  Else
    MsgBox "Cannot Standardize Place", vbExclamation
  End If
  
End Sub