reo sample = 32 bits.
Public Property Get AudioLength() As Long
   AudioLength = m_lAudioLength \ 4
End Property

' Seeks to the absolute stereo sample
Public Sub SeekAbsolute(ByVal lSample As Long)
   If (lSample * 4 &gt; m_lAudioLength) Or (lSample &lt; 0) Then
      pInternalErrorHandler 8
   Else
      mmioSeek m_hMMioIn, (lSample * 4) + m_lDataOffset, SEEK_SET
   End If
End Sub

' Seeks relative to the current location by the specified
' number of stereo samples
Public Sub SeekRelative(ByVal lSampleOff