|
Yes, the collection is a Dataset. This sample my help, here I'm using a Mappoint ActiveX Control named MPC. (By Default it would be named MappointControl1.)
Dim objDataSet As MapPointCtl.DataSet
Dim objmap As MapPointCtl.Map
Dim objRecordset As MapPointCtl.Recordset
Set objmap = MPC.ActiveMap
For Each objDataSet In objmap.DataSets
If InStr(objDataSet.Name, "My Pushpins") Then
Set objRecordset = objDataSet.QueryAllRecords
'objDataSet.ZoomTo
Do Until objRecordset.EOF
objRecordset.Pushpin.Symbol = 20
objRecordset.MoveNext
Loop
End If
Next |