求救map的问题?

<P>打开map出现:</P>
<P>Private Function ExtendSplit_Enabled() As Boolean<BR>    Dim pEditor As IEditor<BR>    Dim pEnumFeature As IEnumFeature<BR>    <BR>    Set pEditor = Application.FindExtensionByName("ESRI Object Editor")<BR>    <BR>    If pEditor.SelectionCount = 1 Then<BR>       Set pEnumFeature = pEditor.EditSelection<BR>       pEnumFeature.Reset<BR>       Set m_pFeature = pEnumFeature.Next<BR>       If m_pFeature.Shape.GeometryType = esriGeometryPolyline Then<BR>          ExtendSplit_Enabled = True<BR>       End If<BR>    End If<BR>End Function<BR>不知道是什么原因 而且不能使用transfer????</P>