Private Sub DisplayMap_Load(ByVal sender As Object, ByVal e As EventArgs)
            winformsMap1.MapUnit = GeographyUnit.DecimalDegree
            shapLayer = New ShapeFileFeatureLayer("e:\testdata\Countries02.shp")
            shapLayer.ReadWriteMode = ShapeFileReadWriteMode.ReadWrite
            shapLayer.Open()
            Dim newPolygon As New PolygonShape("POLYGON ((30 10, 10 20, 20 40, 40 40, 30 10))")
            shapLayer.EditTools.BeginTransaction()
            Dim newFeature As New Feature(newPolygon)
            newFeature.ColumnValues("RECID") = "252"
            shapLayer.EditTools.Add(newFeature)
            shapLayer.EditTools.CommitTransaction()

            Dim feature As Feature = shapLayer.FeatureSource.GetFeaturesByColumnValue("RECID", "252")(0)
            winformsMap1.EditOverlay.EditShapesLayer.InternalFeatures.Add(feature)

            AddHandler winformsMap1.MouseDoubleClick, AddressOf Me.winformsMap1_MouseDoubleClick

            winformsMap1.CurrentExtent = New RectangleShape(-139.2, 92.4, 120.9, -93.2)
            winformsMap1.Refresh()

        End Sub
        Private Sub winformsMap1_MouseDoubleClick(sender As Object, e As MouseEventArgs)
            shapLayer.EditTools.BeginTransaction()
            shapLayer.EditTools.Update(winformsMap1.EditOverlay.EditShapesLayer.InternalFeatures(0).GetShape())
            shapLayer.EditTools.CommitTransaction()
        End Sub