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