ElseIf TypeOf pUnKnown Is IStandaloneTable Then

    ' A standalone table

    Set pStandaloneTable = pUnKnown

    Set pExistingTableWindow = _

    pTableWindow2.FindViaStandaloneTable(pStandaloneTable)

    ' Check if a table already exists; if not, create one

    If pExistingTableWindow Is Nothing Then

      Set pTableWindow2.StandaloneTable = pStandaloneTable

      SetProperties = True

    End If

  End If

  If SetProperties Then

    pTableWindow2.TableSelectionAction = esriSelectFeatures

    pTableWindow2.ShowSelected = False

    pTableWindow2.ShowAliasNamesInColumnHeadings = True

    Set pTableWindow2.Application = Application

  Else

    Set pTableWindow2 = pExistingTableWindow

  End If

  ' Ensure Table Is Visible

  If Not pTableWindow2.IsVisible Then pTableWindow2.Show True

index = pTableWindow2.SelectionSet.IDs.Next

If pTableWindow2.IsVisible Then pTableWindow2.Show False

  Dim pActiveView As IActiveView

  Dim pFeatureLayer As IFeatureLayer

  Dim pFeatureSelection As IFeatureSelection