怎样转化成MapGis数据？

<P>象这样能转换成MapGis数据吗？</P>

<P>
Public Sub MapGisFile(ByRef pFeatureClass As esriCore.IFeatureClass)
 On Error Resume Next
    Dim pFeatureCursor As IFeatureCursor
    Dim FeatureType As Integer
    Dim pntAi As New PntArea 'mapgis工作区
    Dim linAi As New LinArea
    Dim regAi As New RegArea
      FeatureType = pFeatureClass.ShapeType
    Set pFeatureCursor = pFeatureClass.Search(Nothing, False)
    If pFeatureCursor Is Nothing Then
        MsgBox "创建失败"
    Else
    
       Select Case FeatureType
             Case 1 'esriGeometryMultipoint
                 Set pntAi = NewPntArea(pFeatureCursor)
                 pntAi.SaveAs
                 Set pntAi = Nothing
             Case 3 'esriGeometryPolyline
                 Set linAi = NewLinArea(pFeatureCursor)
                  linAi.SaveAs
                  Set linAi = Nothing
             Case 4 'esriGeometryPolygon
                 Set regAi = NewRegArea(pFeatureCursor)
                 regAi.SaveAs
                 Set linAi = Nothing
        End Select
        
    End If</P>
<P>请指教？ 谢谢！ QQ:80430887</P>