Creating a predefined geographic coordinate system issue

[AndrewHayden1]

I'm working with the VB Example of creating a predefined geographic coordinate system in VS 2008 Express and I encounter the error:

'esriSRGeoCSType' is not accessible in this context because it is 'Friend'.

I'm wondering the cause of the error and how I might go about resolving it.

Any thoughts?

    Private Sub CreateGeographicReferenceSystem()
        ' Set up the SpatialReferenceEnvironment.
        ' SpatialReferenceEnvironment is a singleton object and needs to use the Activator class.

        Dim t As Type = Type.GetTypeFromProgID("esriGeometry.SpatialReferenceEnvironment")
        Dim obj As System.Object = Activator.CreateInstance(t)
        Dim srFact As ESRI.ArcGIS.Geometry.ISpatialReferenceFactory = obj

        ' Use the enumeration to create an instance of the predefined object.

        Dim geographicCS As IGeographicCoordinateSystem = srFact.CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_NAD1983)
    End Sub

[NeilClemmons]

If you don't have an Imports statement at the top of the code module for the correct library you'll have to fully qualify it just like you've done here:

Dim srFact As ESRI.ArcGIS.Geometry.ISpatialReferenceFactory = obj

[AndrewHayden1]

Thanks Neil, but I still don't understand. 

I've got a reference to ESRI.ArcGIS.Geometry and have an imports statement for it.  My module looks like this:

Imports ESRI.ArcGIS.Geometry

Module Module1

    Private Sub CreateGeographicReferenceSystem()
        ' Set up the SpatialReferenceEnvironment.
        ' SpatialReferenceEnvironment is a singleton object and needs to use the Activator class.

        Dim t As Type = Type.GetTypeFromProgID("esriGeometry.SpatialReferenceEnvironment")
        Dim obj As System.Object = Activator.CreateInstance(t)
        Dim srFact As ESRI.ArcGIS.Geometry.ISpatialReferenceFactory = obj

        ' Use the enumeration to create an instance of the predefined object.

        Dim geographicCS As IGeographicCoordinateSystem = srFact.CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_NAD1983)
    End Sub

End Module

[AndrewHayden1]

Okay, I see replacing

this:

Dim geographicCS As IGeographicCoordinateSystem = srFact.CreateGeographicCoordinateSystem(esriSRGeoCSType.esriSRGeoCS_NAD1983)

with this:

Dim geographicCS As IGeographicCoordinateSystem = srFact.CreateGeographicCoordinateSystem(ESRI.ArcGIS.Geometry.esriSRGeoCSType.esriSRGeoCS_NAD1983)

does the trick.  Thought, if I have the imports statement, I'm not entirely clear why.