For cntr=1 To MarkerData.Size-1
Dim hMap,li as Map
l1.Initialize
hMap = MarkerData.Get(cntr)
l1.Put("id",hMap.Get("id"))
l1.Put("ASA",hMap.Get("asa"))
l1.Put("Fstop",hMap.Get("fstop"))
l1.Put("Shutter",hMap.Get("shutter"))
l1.Put("Height",hMap.Get("height"))
l1.Put("Distance",hMap.Get("distance"))
l1.Put("ToLight",hMap.Get("tolight"))
l1.Put("Candles",hMap.Get("candles"))
l1.Put("Candelas",hMap.Get("candelas"))
l1.Put("Notes",hMap.Get("notes"))
l1.Put("Color",hMap.Get("color"))
Dim t1 As Marker
Dim mTag As Int
mTag = hMap.Get("markerno")
t1 = PDFgmap.AddMarker2(hMap.Get("markerlat"),hMap.Get("markerlong"),"L"&mTag,l1.Get("Color") )
t1.Snippet = "Distance to M1: " & NumberFormat2(hMap.Get("distance"),0,2,0,True)
Next