Dim spatialRef As ISpatialReference = ... Dim geoDataset As IGeoDataset = fl.FeatureClass Dim geoDatasetSchemaEdit As IGeoDatasetSchemaEdit = geoDataset If (geoDatasetSchemaEdit.CanAlterSpatialReference) Then geoDatasetSchemaEdit.AlterSpatialReference(spatialRef) End If