MapForums

Dim objmap As MapPointCtl.Map
Dim objDataSet As MapPointCtl.DataSet
Dim objRecords As MapPointCtl.Recordset
Dim objshape As MapPointCtl.Shape
Dim lngCount As Long
Dim objloc1 As MapPointCtl.Location
Dim aDriveTimeZone As MapPointCtl.Shape

Set objmap = MappointControl1.ActiveMap
Set objloc1 = objmap.FindResults("Tampa, FL").Item(1)
Set objshape = objmap.Shapes.AddDrivetimeZone(objloc1, 20 * geoOneMinute)
objshape.Select

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