ing, ByVal uFlags As Long) As Long
Private Declare Function mmioAscend Lib "winmm.dll" (ByVal hmmio As Long, lpck
 As MMCKINFO, ByVal uFlags As Long) As Long

Private Const MMIO_READ = &amp;H0
Private Const MMIO_FINDCHUNK = &amp;H10
Private Const MMIO_FINDRIFF = &amp;H20
Private Const MM_WOM_DONE = &amp;H3BD
Private Const MMSYSERR_NOERROR = 0
Private Const SEEK_CUR = 1
Private Const SEEK_END = 2
Private Const SEEK_SET = 0
Private Const TIME_BYTES = &amp;H4
Private Const WHDR_DONE = &amp;H1

Private Declare 