API声音采集问题

Question

用mciSendString() 采集声音的音量状态
i=mciSendString("status capture level",Rstring,128,0)
希望连续监测录音的capture(别名）的音量大小，但是因为declear函数的返回值Rstring为byval，所以没办法重新赋值，应该如何解决啊？？
我是菜鸟，请教了！
我用一个函数调用，也好像没有效果啊

Answer 1

方法有2
1、你可以定时检测，如你以上所说的方法，你调用失败可能时其它原因。
2、使用wavein等更低层API

Answer 2

wavein等可以检测音量？ 记得好像只能输入吧？关键是我要获得音量值啊，请教：我是这样定时的(timer的interval是100）Private Sub Timer1_Timer()
Text2.Text = SampleLevel()
End SubFunction SampleLevel() As Long
Dim a As String * 2
i = mciSendString("status aaa  level ", a, 2, 0)
Text3.Text = a
SampleLevel = Asc(a)
End Function请教为何不可以？  您有QQ嘛？ 我很着急！