EATE_ALWAYS, _
                  FILE_ATTRIBUTE_NORMAL, _
                  0)
   lErr = Err.LastDllError
   If (hFile = INVALID_HANDLE_VALUE) Then
      ' error
      errHandler "OpenFile", 2
   Else
      OpenFile = hFile
   End If
End Function

Public Property Let FileName(ByVal sFile As String)
   CloseFile
   m_sFile = sFile
   If (m_hMem = 0) Then
      If Not (AllocateBuffer(m_lBufferSize)) Then
         Exit Property
      End If
   End If
   m_hFile = OpenFile(sFile)
End Property
Public Property Ge