Public Function ToDib( _
   ByVal type As RasterConvertToDibType _
) As IntPtr

Dim instance As RasterImage
Dim type As RasterConvertToDibType
Dim value As IntPtr
 
value = instance.ToDib(type)

public IntPtr ToDib( 
   RasterConvertToDibType type
)

public:
IntPtr ToDib( 
   RasterConvertToDibType type
) 

Public Sub ToDibExample()
      Dim codecs As RasterCodecs = New RasterCodecs()

      Dim dib As IntPtr
      Using image As RasterImage = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp"))
         dib = image.ToDib(RasterConvertToDibType.BitmapInfoHeader)
      End Using

      Using image As RasterImage = RasterImage.FromDib(dib)
         codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Image1_FromDib.bmp"), RasterImageFormat.Bmp, 0)
      End Using

      Marshal.FreeHGlobal(dib)

      codecs.Dispose()
   End Sub

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

public void ToDibExample()
   {
      RasterCodecs codecs = new RasterCodecs();

      IntPtr dib;

      using (RasterImage image = codecs.Load(Path.Combine(LEAD_VARS.ImagesDir, "Image1.cmp")))
      {
         dib = image.ToDib(RasterConvertToDibType.BitmapInfoHeader);
      }

      using(RasterImage image = RasterImage.FromDib(dib))
      {
         codecs.Save(image, Path.Combine(LEAD_VARS.ImagesDir, "Image1_FromDib.bmp"), RasterImageFormat.Bmp, 0);
      }

      Marshal.FreeHGlobal(dib);

      codecs.Dispose();
   }

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