MapForums

I followed the advise in one of the discussions about seting up a nul.bmp
so I could load all of my pushpin locations (~ 100 pushpins in 9 datasets)
to be non visible

I then have this code to show all the pushpins if required

sub

Set MyMap = frmMapPoint.MappointCtl.ActiveMap
Dim objDataSets As MapPoint.DataSets
Set objDataSets = MyMap.DataSets

For x = 0 To 9
Set objDataSet = MyMap.DataSets("sSetCust" & Right(x, 1))
objDataSet.Symbol = 26
Next

end sub

problem is the datsets get the new symbol value but the Map does not
show them ???

figured it out I set the dataset not the pushpin symbol

For x = 0 To 9
Set objDataSet = MyMap.DataSets(sSetTrk(x))
objDataSet.Symbol = 20
Set objRSet = objDataSet.QueryAllRecords
objRSet.MoveFirst
Do While Not objRSet.EOF
objRSet.Pushpin.Symbol = 20
objRSet.MoveNext
Loop
Next

look OK