图元不能移动，恳请解决！

我写了一个小程序，VB2008的，新建的图元可以删除，就是不能移动，弄了快2天了，也不能解决，恳请有帮助的前辈，代码如下：Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        AxMap1.GeoSet = "J:" & "\2010全国\0719.GST "
        '以上语句为各MAPX控件加载地图。

              '新建图层
        Dim lyr, line1
        lyr = AxMap1.Layers.CreateLayer("car")
        line1 = AxMap1.Layers.CreateLayer("line")
    End Sub

    Sub mapx01()
        'Stop

        '2新建图元
        Dim Pnt As New MapXLib.Point
        Dim NewStyle As New MapXLib.Style
        Dim FeaFac, ftr


        With NewStyle
            .SymbolType = MapXLib.SymbolTypeConstants.miSymbolTypeBitmap
            .SymbolBitmapSize = 24 '图标显示的大小
            .SymbolBitmapTransparent = True '图标显示区背景是否为透明或者白色
            .SymbolBitmapName = "TRUC2-32.BMP "
        End With

        AxMap1.AutoRedraw = False       '禁止自动刷新 
        AxMap1.Layers.Item("car").Editable = False

        FeaFac = AxMap1.FeatureFactory '
        Pnt.Set(114, 23)



        ftr = FeaFac.CreateSymbol(Pnt, NewStyle)       '创建符号 
        AxMap1.Layers.Item("car").AddFeature(ftr) '添加进当前图层 
       
        AxMap1.Layers.Item("car").Refresh()
        AxMap1.AutoRedraw = True
        AxMap1.Layers.Item("car").Editable = True

        
        '释放  
        Pnt = Nothing
        FeaFac = Nothing
        ftr = Nothing

    End Sub

          Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
       '3移动图元
                  
            AxMap1.Layers("car").AllFeatures.Item(1).Offset(TextBox1.Text, TextBox2.Text)
            AxMap1.Layers("car").AllFeatures.Item(1).Update()

             End Sub
End Class

补充：企业软件 ,  地理信息系统