|
Here are two samples. Lets say your Dataset was named Test and your pushpin was named Home.
Dim objMap As MapPointctl.Map
Set objMap = MappointControl1.ActiveMap
Dim objDataSet As MapPointctl.DataSet
Dim objRecords As MapPointctl.Recordset
Set objDataSet = objMap.DataSets("Test")
Set objRecordset = objDataSet.QueryAllRecords
'//////////////////////////////////////////////////////
Dim objPin As MapPointctl.Pushpin
Set objPin = objMap.FindPushpin("Home") |