Private Type ArcObjects
   IMxDocument           As IMxDocument
   Imap                  As Imap
   IMaps                 As IMaps
   IGeoFeatureLayer      As IGeoFeatureLayer

   IField                As IField
   IFields               As IFields
   IFieldsEdit           As IFieldsEdit
   IFieldEdit            As IFieldEdit
   ICursor               As ICursor
   IRow                  As IRow
   ITable                As ITable
   ISelectionSet         As ISelectionSet
   IQueryFilter          As IQueryFilter
   IFeatureSelection     As IFeatureSelection
   IFeatureLayer         As IFeatureLayer
   IFeatureCursor        As IFeatureCursor
   IFeature              As IFeature
   IDataSet              As IDataSet
   IEnvelope             As IEnvelope
   IFeatureClass         As IFeatureClass
   IEnumVertex           As IEnumVertex

   ICommandItem          As ICommandItem
   ICommandBar           As ICommandBar
   ICommandBars          As ICommandBars

   IWorkspaceFactory     As IWorkspaceFactory
   IPropertySet          As IPropertySet
   IWorkspace            As IWorkspace
   IFeatureWorkspace     As IFeatureWorkspace
   IPoint                As IPoint
   IPointCollection      As IPointCollection
   ICurve                As ICurve
   IPolygon              As IPolygon
   ILine                 As ILine
   IGeometry             As IGeometry
   IGeometryCollection   As IGeometryCollection
   IGeometryDefEdit      As IGeometryDefEdit
   IGeometryDef          As IGeometryDef
   ISpatialReference     As ISpatialReference
   IWorkspaceEdit        As IWorkspaceEdit
   SpatialReferenceEnvironment As SpatialReferenceEnvironment

   IProjectedCoordinateSystem As IProjectedCoordinateSystem
   IAnnotateLayerPropertiesCollection As IAnnotateLayerPropertiesCollection

End Type

Private A As ArcObjects ' Arc Objects