'do not changed any in this function for speed reason
Private Sub CheckOutBuf(WaveOutHDR As WAVEHDR)
With WaveOutHDR
If (.dwFlags And WHDR_DONE) = WHDR_DONE Then
With colBufs
Dim bt() As Byte
bt = .Item(1)
.Remove 1
End With
Dim ll As Long
ll = LBound(bt)
Dim l As Long
l = UBound(bt) + 1 - ll
CopyMemory ByVal .lpData, bt(ll), l
.dwBufferLength = l
l = waveOutWrite(hWaveOut, WaveOutHDR, Len(WaveOutHDR))
End If
End With
End Sub
'do not changed any in this function for speed reason
Private Sub tmTimer_Timer()
On Error Resume Next