m_lBufferSize * 4)
   If Not (m_hMemBuffer = 0) Then
      m_lPtrBuffer = GlobalLock(m_hMemBuffer)
      AllocateBuffer = Not (m_lPtrBuffer = 0)
   End If
End Function

Private Sub FreeBuffer()
   If Not (m_lPtrBuffer = 0) Then
      GlobalUnlock m_hMemBuffer
      m_lPtrBuffer = 0
   End If
   If Not (m_hMemBuffer = 0) Then
      GlobalFree m_hMemBuffer
      m_hMemBuffer = 0
   End If
End Sub

Public Sub CloseFile()
   If m_hMMioIn Then
      mmioClose m_hMMioIn, 0
      m_hMMioIn = 0
      FreeBuffer
   