MapForums

mpApp.ActiveMap.ActiveRoute.Waypoints.Item(1).Location.GoTo
    mpApp.ActiveMap.Altitude = 10 ' Or whatever

mpApp.ActiveMap.Union(wp1, wp2, wp3).GoTo

' Set altitude/zoom
' Notes: This was determined by trial and error but seems to work great
objMap.Altitude = Round(radius + (radius * 3.25))

' Draw circle
' Notes: Ok, is MS just confused?  They say 'radius' but they must mean 
' X diameter and Y diameter.  So we multiple radius by 2
objMap.Shapes.AddShape geoShapeOval, objORGLoc, radius * 2, radius * 2

' Find all pushpins within the circle
' Notes: objORGLoc is my 'origin location', the point I'm searching from
' orig_org is the name of the origin, the IF statement makes sure to
' exclude the pushpin for the origin location
' I also draw a line from origin to the pushpin to make it more visible

Set objRecords = objMap.DataSets.Item(1).QueryCircle(objORGLoc, radius)
        
objRecords.MoveFirst
Do While Not objRecords.EOF
    If objRecords.Pushpin.Name <> orig_org Then
        lngCount = lngCount + 1
        i = lngCount + 24
        Range("A" & i).Value = objRecords.Pushpin.Name
        Range("B" & i).Value = Round(objORGLoc.DistanceTo(objRecords.Pushpin.Location))
                
        Set objLine = objMap.Shapes.AddLine(objORGLoc, objRecords.Pushpin.Location)
        objLine.Line.Weight = 1
        objLine.Line.ForeColor = vbBlue
        'objLine.ZOrder geoSendBehindRoads
        objLine.Line.EndArrowhead = False
    End If
    objRecords.MoveNext
Loop