DeleteMarker example for Visual Basic

Dim Marker1 As LEADMarkers
Dim RasterIO As LEADRasterIO
Private Sub DeleteMarker_Click()
   Marker1.Load "c:\ image1.jpg", 0
   Marker1.DeleteMarker Marker1.Type, 0
End Sub

Private Sub Save_Marker_Click()
RasterIO.SetMarkers Marker1, 0
RasterIO.Save LEADRasterView1.Raster, "c:\ image2.jpg", FILE_EXIF_JPEG, 24, 2, 0
End Sub