 the data read in the last read
' operation
Public Property Get ReadSize() As Long
   ReadSize = m_lCurrentReadSize \ 4
End Property

' Gets the pointer to the audio buffer for the last
' read operation
Public Property Get ReadBufferPtr() As Long
   ReadBufferPtr = m_lPtrBuffer
End Property

Private Sub pInternalErrorHandler(ByVal lR As Long)
Dim sMsg As String
   Select Case lR
   Case 1
      sMsg = "Only stereo 16 bit wave files supported."
   Case 2
      sMsg = "Unable to open file."
   Case 3
      sM