MapForums

'call this sub from the MapPoint Controls AfterRedraw event

On Error Resume Next

Dim objmap As MapPointCtl.Map
Set objmap = MappointControl1.ActiveMap
Dim objShapes As MapPointCtl.Shapes
Dim objshape As MapPointCtl.Shape
Set objShapes = objmap.Shapes
Dim objRecords As MapPointCtl.Recordset
Dim objDataSet As MapPointCtl.DataSet
    
If TypeOf objmap.Selection Is Pushpin Then
Dim a_pin As MapPointCtl.Pushpin
Set a_pin = objmap.Selection
       
   
 For Each objshape In objmap.Shapes
  If objshape.Name = "MyShape" Then
    For Each objDataSet In objmap.DataSets
        Set objRecords = objDataSet.QueryShape(objshape)
        objRecords.MoveFirst
            Do Until objRecords.EOF
              If objRecords.Pushpin.Name = a_pin.Name Then
                MsgBox "You moved " & objRecords.Pushpin.Name & " (" & a_pin.Name & ") into the circle"
              End If
            objRecords.MoveNext
            Loop
    Next
  End If
 Next
End If

'Run this at startup or from a command button

Dim objmap As MapPointCtl.Map
Set objmap = MappointControl1.ActiveMap
    
Dim objShapes As MapPointCtl.Shapes
Dim objshape As MapPointCtl.Shape
Set objShapes = objmap.Shapes

Set objshape = objShapes.AddShape(geoShapeRadius, objmap.FindResults("Denver, CO").Item(1), 500, 500)
objshape.Name = "MyShape"