GetMarkers example for Visual Basic

Dim Marker1 As LEADMarkers
Dim Marker2 As LEADMarkers
Dim RasterIO As LEADRasterIO
Private Sub LoadMarker_Click()
RasterIO.Load LEADRasterView1.Raster, "c:\ image1.jpg", 0, 0, 1
Marker1.Load "c:\ image1.jpg", 0
RasterIO.SetMarkers Marker1, 0
RasterIO.Save LEADRasterView1.Raster, "c:\ image2.jpg", _
      FILE_EXIF_JPEG, 24, 2, 0
Marker2.GetMarkers 0
For i = 0 To Marker2.Count - 1
               Marker2.GetMarker i
Print Marker2.Type, Marker2.ElementCount
Next i
End Sub