Option Explicit Public Sub CreateFeatureClass() 'フィールドの作成 Dim pFieldEdit(2) As IFieldEdit 'ObjectID Set pFieldEdit(0) = New Field pFieldEdit(0).Type = esriFieldType.esriFieldTypeOID pFieldEdit(0).Name = "OBJECTID" '既定値は "OBJECTID" 'SpatialReference Dim pS ...