Dim vl = New C1.Win.Map.VectorLayer()
C1Map1.Layers.Add(vl)
Dim placemark = New C1.Win.Map.VectorPlacemark()
placemark.Geometry = New GeoPoint(70, 60)
vl.Items.Add(placemark)
' 最初に、 図形をMarkerShape.Customに設定します
placemark.Marker.Shape = MarkerShape.[Custom]
placemark.Marker.Size = New SizeF(40, 40)
' 次に、CustomShapeを設定します
Dim shape = New MarkerImageShape()
placemark.Marker.CustomShape = shape
shape.Image = Image.FromFile("../../office.png")