MapForums

'Query number of pushpins visible on screen

Dim objmap As MapPointctl.Map
Set objmap = MappointControl1.ActiveMap
Dim objDataSet As MapPointctl.DataSet
Dim objRecords As MapPointctl.Recordset

Dim objLocs(1 To 5) As MapPointctl.Location
Set objLocs(1) = objmap.XYToLocation(objmap.Left, objmap.Top)
Set objLocs(2) = objmap.XYToLocation(objmap.Width, objmap.Top)
Set objLocs(3) = objmap.XYToLocation(objmap.Width, objmap.Height)
Set objLocs(4) = objmap.XYToLocation(objmap.Left, objmap.Height)
Set objLocs(5) = objmap.XYToLocation(objmap.Left, objmap.Top)

lngCount = 0

For Each objDataSet In objmap.DataSets
Set objRecords = objDataSet.QueryPolygon(objLocs)
objRecords.MoveFirst
Do While Not objRecords.EOF
lngCount = lngCount + 1
objRecords.MoveNext
Loop
Next
MsgBox "Number of records in polygon: " & lngCount