MapForums

Sub QueryRecordsInBoxAtCenterOfMap()
    Dim objApp As New MapPoint.Application
    Dim objMap As MapPoint.Map
    Dim objDataSet As MapPoint.DataSet
    Dim objRecords As MapPoint.Recordset
    Dim objLocs(1 To 5) As MapPoint.Location
    Dim lngCount As Long
    
    'Set up application and objects to use
    Set objMap = objApp.ActiveMap
    lngCount = 0
    'create a "square" of locations in the middle of the map
    objMap.Altitude = objMap.Altitude / 2
    Set objLocs(1) = objMap.XYToLocation(0, 0)
    Set objLocs(2) = objMap.XYToLocation(objMap.Width, 0)
    Set objLocs(3) = objMap.XYToLocation(objMap.Width, objMap.Height)
    Set objLocs(4) = objMap.XYToLocation(0, objMap.Height)
    Set objLocs(5) = objMap.XYToLocation(0, 0)
    objMap.Altitude = objMap.Altitude * 2
    
    objApp.Visible = True
    objApp.UserControl = True
    
    'Remove the comment from the next line to see the polygon being queried
    'objMap.Shapes.AddPolyline objLocs
    
    'Let user create a data map
    Set objDataSet = objApp.ActiveMap.DataSets.ShowImportWizard

    'Find records in polygon
    Set objRecords = objDataSet.QueryPolygon(objLocs)
    objRecords.MoveFirst
    Do While Not objRecords.EOF
        lngCount = lngCount + 1
        objRecords.MoveNext
    Loop
    MsgBox "Number of records in polygon: " & lngCount
End Sub

    objRecords.MoveFirst
    Do While Not objRecords.EOF
        lngCount = lngCount + 1
        objRecords.MoveNext
    Loop

  'Access the first Pushpin
  MsgBox objRS.Pushpin.Name
  objRS.Pushpin.Location.GoTo