Attribute VB_Name = "Module2"
' Public modules for return functions
Option Explicit
Private cally As Long

Public Function Buffer_filled(ByVal hwi As Long, ByVal uMsg As Long, ByVal dwInstance As Long, ByRef hdr As WAVEHDR, ByVal dwParam2 As Long)
    Dim rc As Long
    'rc = waveInStop(hwi)
    Buffer_filled = 0
End Function

Public Function Buffer_filled2()
    'rc = waveInStop(hwi)
End Function