Dim pWS As IWorkspace
        Dim pWSF As IWorkspaceFactory
        pWSF = New ShapefileWorkspaceFactory
        pWS = pWSF.OpenFromFile("C:\Program Files\ESRI\MapObjects2\Samples\Data\Mexico", 0)

        Dim pFields As IFields
        pFields = New Fields

        Dim pFieldsEdit As IFieldsEdit
        pFieldsEdit = pFields
        pFieldsEdit.FieldCount_2 = 3

        Dim pFE As IFieldEdit
        Dim pF As IField
        pF = New Field
        pFE = pF
        With pFE
            .Name_2 = "ObjectID"
            .AliasName_2 = "FID"
            .Type_2 = esriFieldType.esriFieldTypeOID
        End With
        pFieldsEdit.Field_2(0) = pF

        pF = New Field
        pFE = pF
        With pFE
            .Name_2 = "NAME"
            .AliasName_2 = "Name"
            .Type_2 = esriFieldType.esriFieldTypeString
        End With
        pFieldsEdit.Field_2(1) = pF

        Dim pGeoDef As IGeometryDef
        pGeoDef = New GeometryDef
        Dim pGeoDefEdit As IGeometryDefEdit
        pGeoDefEdit = pGeoDef
        Dim pSR As ISpatialReference

        Dim pFeatLyr As IFeatureLayer
        pFeatLyr = New FeatureLayer

        Dim pMap As IMap
        pMap = AxMapControl1.Map
      
        pSR = pMap.SpatialReference

        pGeoDefEdit.SpatialReference_2 = pSR
        pGeoDefEdit.GeometryType_2 = esriGeometryType.esriGeometryPoint

        pF = New Field
        pFE = pF
        With pFE
            .Name_2 = "Shape"
            .AliasName_2 = "shape"
            .Type_2 = esriFieldType.esriFieldTypeGeometry
            .GeometryDef_2 = pGeoDefEdit
        End With
        pFieldsEdit.Field_2(2) = pF

        Dim pFeatWS As IFeatureWorkspace
        pFeatWS = pWS
        pFeatWS.CreateFeatureClass("china", pFields, Nothing, Nothing, esriFeatureType.esriFTSimple, "Shape", "")
        AxMapControl1.Refresh()