WriteMarkerAction example for Visual Basic
Private Sub RasterIO_TransformMarker(ByVal iMarker As Integer, ByVal lSize As Long, vData As LEADRasterVariant, ByVal iTransform As Integer)
If iMarker = &HFE Then
Dim RasterVar As New LEADRasterVariant
RsaterVar.Type = VALUE_STRING
RsaterVar.StringValue = "My Comments"
RasterIO.WriteMarkerAction = WRITEMARKER_IGNORE
RasterIO.WriteMarker iMarker, 10, RasterVar
End If
End Sub