What is that?
Querybycircle not available for puspins???

The following code indeed shows no hits:

Set objRecords = objDataSet.QueryCircle(objLoc, 2000)
objRecords.MoveFirst
Do While Not objRecords.EOF
If TypeOf objRecords Is MapPoint.Pushpin Then
lngCount = lngCount + 1
End If
objRecords.MoveNext
Loop
List1.AddItem lngCount

I want to select the puspins (my own set) lying within that circle. Not possible?