This is my code:

Dim objmap As MapPointCtl.Map
Dim objloc As MapPointCtl.Location
Dim objshape As MapPointCtl.Shape

Set objmap = Me.MappointControl1.ActiveMap
Set objloc = objmap.GetLocation(wp0.lat, wp0.lon)

Set objshape = objmap.Selection
objshape.line.ForeColor = color
objshape.line.Weight = 1
objmap.Shapes.AddShape geoShapeRadius, objloc, 0.001, 0.001