Public Sub freezeFields()
  ' テーブル･ウィンドウに表示されるフィーチャレイヤを取得するところから開始します。
  Dim pMxDoc As IMxDocument
  Dim pFeatLayer As IFeatureLayer
  Set pMxDoc = ThisDocument
  Set pFeatLayer = pMxDoc.FocusMap.Layer(0)
  ' フィーチャレイヤのテーブル･ウィンドウを開きます。
  Dim pTableWindow As ITableWindow
  Set pTableWindow = New TableWindow
  Set pTableWindow.FeatureLayer = pFeatLayer
  Set pTableWindow.Application = Application
  pTableWindow.ShowAliasNamesInColumnHeadings = True
  ' テーブルを開きます。
  pTableWindow.Show True
  ' テーブル･ウィンドウのプロパティを取得します。
  Dim pTableProperties As ITableProperties
  Dim pEnumTableProperties As IEnumTableProperties
  Dim pTableProperty As ITableProperty
  Set pTableProperties = pMxDoc.TableProperties
  Set pEnumTableProperties = pTableProperties.IEnumTableProperties
  pEnumTableProperties.Reset
  Set pTableProperty = pEnumTableProperties.Next
  ' テーブル･ウィンドウの左側に固定するためにフィールドの順序を並べ替えます。
  pTableProperty.FieldOrder = "NAME, FEA_CODE, OBJECTID, Shape, Shape_Length"
  ' 固定したいフィールドの数を、左端からの個数で指定します。
  pTableProperty.FrozenFields = 2 ' 0に設定するとフィールドは固定されません。
  ' テーブル･ウィンドウを再描画します。
  ' このコードではNAMEフィールドとFEA_CODEが固定されます。
  Dim pTableControl As ITableControl
  Set pTableControl = pTableWindow.TableControl
  pTableControl.Redraw
End Sub