Sub DrawSplats(rds As MapPoint.DataSet, rdblRadius As Double)

   Dim rs      As MapPoint.Recordset
   Dim shp     As MapPoint.Shape
   
   If rds.RecordCount > 0 Then
      Set rs = rds.QueryAllRecords
      rs.MoveFirst
      Do
         Set shp = rds.Parent.Parent.Shapes.AddShape(geoShapeRadius, rs.Pushpin.Location, rdblRadius*2, rdblRadius*2)
         
         With shp
            .Fill.ForeColor = vbRed
            .Line.ForeColor = .Fill.ForeColor
            .SizeVisible = False
            .Fill.Visible = True
            .ZOrder geoSendBehindRoads
         End With
         rs.MoveNext
      Loop While Not rs.EOF
      Set rs = Nothing
   End If
End Sub