在AO中对FeatureLayer自动增加点,可是程序一运行VB就死了,不知为什么?

Public Sub addPoint(map As MapControl)
  Dim pFeatureLayer As IFeatureLayer
  Dim pLayer As ILayer
  Set pLayer = map.ActiveView.FocusMap.Layer(0)
  Set pFeatureLayer = pLayer
  Dim pPoint As IPoint
  Set pPoint = New Point
  Dim pFeatureClass As IFeatureClass
  Set pFeatureClass = pFeatureLayer.FeatureClass
  Dim pFeature As IFeature
  Set pFeature = New Feature
  pPoint.x = 425873
  pPoint.y = 548764
  Dim pGeometry As IGeometry
  Set pGeometry = pPoint
  Set pFeature.Shape = pGeometry
  pFeature.Store                                                      '/////会不会在这儿出了问题
  Set pFeature = pFeatureClass.CreateFeature
  MsgBox "ok"
End Sub
各位帮我看一看,谢谢,真的急用.
<BLOCKQUOTE></BLOCKQUOTE>

请看这个例子，C:\Program Files\ArcGIS\DeveloperKit\samples\Controls\MapControl\MapEditing，你或许就清楚了。