Search for: KB10338 - Adding a new point, line, or polygon shape in Visual Basic. Create a Point: shp = layer.CreateShape(XgisShapeTypePoint) shp.Lock(1) shp.AddPart() shp.AddPoint(ptg1) shp.Unlock() Create a Line: shp = layer.CreateShape(XgisShapeTypeArc) shp.Lock(1) shp.AddPart() shp.AddPoint(ptg1) shp.AddPoint(ptg2) shp.Unlock() Create a Polygon: shp = layer.CreateShape(XgisShapeTypePolygon) shp.Lock(1) shp.AddPart() shp.AddPoint(ptg1) shp.AddPoint(ptg2) shp.AddPoint(ptg3) shp.Unlock() Created: November 21, 2003, Modified: August 03, 2015