private unsafe MemoryStream ToMemoryStream(IStream comStream)
        {
            MemoryStream stream = new MemoryStream();
            byte[] pv = new byte[100];
            uint num = 0;
            IntPtr pcbRead = new IntPtr(  (void*) &num);
            comStream.Seek((long) 0, 0, IntPtr.Zero);
            do
            {
                num = 0;
                comStream.Read(pv, pv.Length, pcbRead);
                stream.Write(pv, 0, (int) num);
            }
            while (num > 0);
            return stream;
        }

rivate Function ToMemoryStream(ByVal comStream As IStream) As MemoryStream
 
            Dim stream As New MemoryStream()
            Dim pv As Byte() = New Byte(100) {}
            Dim num As UInteger = 0
 
            Dim GC As System.Runtime.InteropServices.GCHandle = _
          System.Runtime.InteropServices.GCHandle.Alloc(num, _
          GCHandleType.Pinned)
 
            Dim pcbRead As IntPtr = GC.AddrOfPinnedObject()
 
            comStream.Seek(CLng(0), 0, IntPtr.Zero)
 
 
            Do
                num = 0
                comStream.Read(pv, pv.Length, pcbRead)
 
                stream.Write(pv, 0, CInt(num))
            Loop While num > 0
            GC.Free()
            Return stream
        End Function