GetMarkers example for Visual Basic

'Add LEAD Main ActiveX Control into your form and call it "LEAD1"
Dim Markers1 As LEADMarkers
Dim Markers2 As LEADMarkers

Private Sub GetMarkers_Click()
LEAD1.Load "c:\image1.jpg", 0, 0, 1
Set Markers1 = LEAD1.LoadMarkers("c:\image1.jpg", 0)
LEAD1.SetMarkers Markers1, 0
LEAD1.Save "c:\image2.jpg", FILE_EXIF_JPEG, 24, 2, 0
Set Markers2 = LEAD1.GetMarkers(0)

Dim i As Integer
For i = 0 To Marker2.Count - 1
   Print Markers2.Marker(i).Type, Markers2.Marker(i).Size
Next i
End Sub