' Having an ltmmCapture object, pCap:
Dim BitRate As Double
' get the estimate bit rate before capturing starts (theoretical)
BitRate = pCap.EstimateOutputBitRate ()
' After starting capture, get the estimate output bit rate (estimate from actually written bytes)
BitRate = pCap.EstimateOutputBitRate()
' do something with the returned values.