Public Function LoadMetafile( _
   ByVal fileName As String, _
   ByVal pageNumber As Integer _
) As IntPtr

Dim instance As CodecsRtfOptions
Dim fileName As String
Dim pageNumber As Integer
Dim value As IntPtr
 
value = instance.LoadMetafile(fileName, pageNumber)

public IntPtr LoadMetafile( 
   string fileName,
   int pageNumber
)

public:
IntPtr LoadMetafile( 
   String^ fileName,
   int pageNumber
) 

<DllImport("Gdi32")> _
   Private Shared Function DeleteEnhMetaFile(ByVal hemf As IntPtr) As Integer
   End Function
   Public Sub LoadRtfAsMetafileExample()
      Dim codecs As New RasterCodecs()

      Dim srcFileName As String = Path.Combine(LEAD_VARS.ImagesDir, "Image1.rtf")

      ' Load the source file as a metafile
      Dim hemf As IntPtr = codecs.Options.Rtf.LoadMetafile(srcFileName, 1)

      If hemf <> IntPtr.Zero Then
         ' Use the metafile here

         ' Finally, delete it using the Windows API
         DeleteEnhMetaFile(hemf)
      End If

      ' Clean up
      codecs.Dispose()
   End Sub

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

[DllImport("Gdi32")]
   private static extern int DeleteEnhMetaFile(IntPtr hemf);
   public void LoadRtfAsMetafileExample()
   {
      RasterCodecs codecs = new RasterCodecs();

      string srcFileName = Path.Combine(LEAD_VARS.ImagesDir, "Image1.rtf");

      // Load the source file as a metafile
      IntPtr hemf = codecs.Options.Rtf.LoadMetafile(srcFileName, 1);

      if(hemf != IntPtr.Zero)
      {
         // Use the metafile here

         // Finally, delete it using the Windows API
         DeleteEnhMetaFile(hemf);
      }

      // Clean up
      codecs.Dispose();
   }

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