WriteMetaData example for Visual Basic

Dim Marker1 As LEADMarkers
Dim RasterIO As LEADRasterIO
Private Sub WriteMetaData _Click()
   Marker1.Load "c:\image1.jpg", 0
   RasterIO.SetMarkers  Marker1,0
   RasterIO.WriteMetaData "c:\image2.tif", METADATA_ALL
End Sub