CopyMarkers example for Visual Basic

Dim Marker1 As LEADMarkers
Dim Marker2 As LEADMarkers4
Dim RasterIO As LEADRasterIO

Private Sub CopyMarkers_Click()
Marker1.Load "c:\ image1.jpg", 0
Marker2.CreateMarkers
RasterIO.CopyMarkers Marker2, Marker1

For i = 0 To Marker2.Count - 1
               Marker2.GetMarker i
Print Marker2.Type, Marker2.ElementCount
Next i
End Sub