Protected Function New( _
   ByVal info As SerializationInfo, _
   ByVal context As StreamingContext _
)

Dim info As SerializationInfo
Dim context As StreamingContext
 
Dim instance As New RasterImage(info, context)

protected RasterImage( 
   SerializationInfo info,
   StreamingContext context
)

protected:
RasterImage( 
   SerializationInfo^ info,
   StreamingContext context
)

Public Sub MyRasterImageSerializationTest()
      ' Load an image
      Dim codecs As RasterCodecs = New RasterCodecs()

      Dim img As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp"))

      ' create a new MyRasterImage instance out of this image
      Dim myImage As MyRasterImage = New MyRasterImage(img)

      ' Set our custom data
      myImage.MyIntegerData = 10
      myImage.MyStringData = "My string"
      Dim msg As String = String.Format("Before serialization.  MyIntegerData = {0}, MyStringData = {1}", myImage.MyIntegerData, myImage.MyStringData)
      MessageBox.Show(msg)

      ' img is invalid now and should be disposed
      img.Dispose()

      ' Serialize myImage
      Dim formatter As BinaryFormatter = New BinaryFormatter()
      Dim ms As MemoryStream = New MemoryStream()
      formatter.Serialize(ms, myImage)

      ' dispose myImage
      myImage.Dispose()
      myImage = Nothing

      ' Deserialize back from the stream
      ms.Position = 0
         myImage = CType(formatter.Deserialize(ms), MyRasterImage)

      msg = String.Format("After serialization.  MyIntegerData = {0}, MyStringData = {1}", myImage.MyIntegerData, myImage.MyStringData)
      MessageBox.Show(msg)

      ' re-save the image
      codecs.Save(myImage, Path.Combine(LEAD_VARS.ImagesDir, "Image1_MySerialized.bmp"), RasterImageFormat.Bmp, 24)

      ' Clean up
      ms.Close()
      myImage.Dispose()
      codecs.Dispose()
   End Sub

Public NotInheritable Class LEAD_VARS
   Public Const ImagesDir As String = "C:\Users\Public\Documents\LEADTOOLS Images"
End Class

public void MyRasterImageSerializationTest()
   {
      // Load an image
      RasterCodecs codecs = new RasterCodecs();

      RasterImage img = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp"));

      // create a new MyRasterImage instance out of this image
      MyRasterImage myImage = new MyRasterImage(img);

      // Set our custom data
      myImage.MyIntegerData = 10;
      myImage.MyStringData = "My string";
      string msg = string.Format("Before serialization.  MyIntegerData = {0}, MyStringData = {1}", myImage.MyIntegerData, myImage.MyStringData);
      MessageBox.Show(msg);

      // img is invalid now and should be disposed
      img.Dispose();

      // Serialize myImage
      BinaryFormatter formatter = new BinaryFormatter();
      MemoryStream ms = new MemoryStream();
      formatter.Serialize(ms, myImage);

      // dispose myImage
      myImage.Dispose();
      myImage = null;

      // Deserialize back from the stream
      ms.Position = 0;
      myImage = formatter.Deserialize(ms) as MyRasterImage;

      msg = string.Format("After serialization.  MyIntegerData = {0}, MyStringData = {1}", myImage.MyIntegerData, myImage.MyStringData);
      MessageBox.Show(msg);

      // re-save the image
      codecs.Save(myImage, Path.Combine(LEAD_VARS.ImagesDir, "Image1_MySerialized.bmp"), RasterImageFormat.Bmp, 24);

      // Clean up
      ms.Close();
      myImage.Dispose();
      codecs.Dispose();
   }

static class LEAD_VARS
{
   public const string ImagesDir = @"C:\Users\Public\Documents\LEADTOOLS Images";
}