sg = "Not a Wave file."
   Case 4
      sMsg = "Unable to retrieve format chunk"
   Case 5
      sMsg = "Error reading format"
   Case 6
      sMsg = "No Wave File Open"
   Case 7
      sMsg = "Insufficient memory"
   Case 8
      sMsg = "Position out of range"
   End Select
   Err.Raise cErrBase + lR, App.EXEName &amp; ".cWavePlayer", sMsg
End Sub


Private Sub Class_Initialize()
   m_lBufferSize = 131072
End Sub

Private Sub Class_Terminate()
   CloseFile
End Sub
</pre><p>&#160;</p><p>&#160;</p><p>&#160;<