WriteMarkerAction example for Visual Basic

' Rotate the file 90 degrees
LEAD1.TransformFile "c:\temp\1.jpg", "c:\temp\2.jpg", FILE_TRANSFORM_ ROTATE90, 1

' I will replace the comment present in the file with my own comment
Private Sub LEAD1_TransformMarker(ByVal iMarker As Integer, ByVal lSize As Long, ByVal vData As Variant, ByVal iTransform As Integer)
   If iMarker = &HFE Then
      LEAD1.WriteMarkerAction = WRITEMARKER_IGNORE
      LEAD1.WriteMarker iMarker, 10, "My comment"
   End If
End Sub