Dim vl = New C1.Win.Map.VectorLayer()
C1Map1.Layers.Add(vl)
Dim placemark = New C1.Win.Map.VectorPlacemark()
placemark.Geometry = New GeoPoint(110, 65)
vl.Items.Add(placemark)
' 最初に、 図形をMarkerShapeに設定します
placemark.Marker.Shape = MarkerShape.[Custom]
placemark.Marker.Size = New SizeF(20, 27.32F)
' 次に、CustomShapeを設定します
Dim shape = New SampleCustomShape(0)
placemark.Marker.CustomShape = shape