请教高手？？？？？如何采集声音信号并保存为.WAV文件

用Multimedia MCI 控件Command 属性（Multimedia MCI 控件）
      指定将要执行的 MCI 命令。在设计时，该属性不可用。语法[form.]MMControl.Command[ = cmdstring$]说明参数 cmdstring$ 给出了将要执行的 MCI 命令的名称：Open, Close, Play, Pause, Stop, Back, Step, Prev, Next, Seek, Record, Eject, Sound 或 Save。这些命令被立即执行，并将错误代码存放在 Error 属性中。下表描述了所有的命令及其所用的属性。如果没有对某个属性进行设置，那么它既可以使用默认值（给出在属性名后的括号中），也有可能使用不到该属性（如果没有列出默认值的话）。命令 描述/所用的属性 
Open 使用 MCI_OPEN 命令打开一设备。 
  Notify (False) 
  Wait (True) 
  Sharable 
  DeviceType 
  FileName 
Close 使用 MCI_CLOSE 命令关闭一设备。 
  Notify (False) 
  Wait (True) 
Play 使用 MCI_PLAY 命令播放一设备。 
  Notify (True) 
  Wait (False) 
  From 
  To 
Pause 使用 MCI_PAUSE 命令暂停播放或记录。如果在设备已经暂停时执行这一命令，使用 MCI_RESUME 命令重新开始播放或记录。 
  Notify (False) 
  Wait (True) 
Stop 使用 MCI_STOP 命令停止播放或记录。 
  Notify (False) 
  Wait (True) 
Back 使用 MCI_STEP 命令向后单步。 
  Notify (False) 
  Wait (True) 
  Frames 
Step 使用 MCI_STEP 命令向前单步。 
  Notify (False) 
  Wait (True) 
  Frames 
Prev 使用 Seek 命令定位到当前曲目的开始部分。如果在上一次 Prev 命令之后三秒之内再次执行这一命令，那么就定位到上一个曲目的开始部分，如果已经处在第一个曲目内，那么就只是定位到第一个曲目的开始部分。 
  Notify (False) 
  Wait (True) 
Next 使用 Seek 命令定位到下一个曲目的开始部分（如果已经处在最后一个曲目内，那么就定位到最后一个曲目的开始部分）。 
  Notify (False) 
  Wait (True) 
Seek 如果没有进行播放，那么就使用 MCI_SEEK 命令搜索一个位置。如果播放正在进行，那么就使用 MCI_PLAY 命令从给定位置开始继续播放。 
  Notify (False) 
  Wait (True) 
  To 
Record 使用 MCI_RECORD 命令进行记录。 
  Notify (True) 
  Wait (False) 
  From 
  To 
  Recordmode (0–Insert) 
Eject 使用 MCI_SET 命令将媒体弹出。 
  Notify (False) 
  Wait (True) 
Sound 使用 MCI_SOUND 命令播放声音。 
  Notify (False) 
  Wait (False) 
  FileName 
Save 使用 MCI_SAVE 命令保存打开的文件。 
  Notify (False) 
  Wait (True) 
  FileName 
数据类型String示例（Multimedia MCI 控件）
Visual Basic 示例下面的示例演示了打开一台使用兼容数据文件的 MCI 设备的过程。将这些代码放到 Form_Load 过程，应用程序就可以使用 Multimedia MCI 控件来对文件 Gong.wav 进行 播放、记录和倒带。在试运行这个示例之前，首先应创建一个包含 Multimedia MCI 控件的窗体。Private Sub Form_Load () 
   ' Set properties needed by MCI to open.
   MMControl1.Notify = FALSE
   MMControl1.Wait = TRUE
   MMControl1.Shareable = FALSE
   MMControl1.DeviceType = "WaveAudio"
   MMControl1.FileName = "C:\WINDOWS\MMDATA\GONG.WAV"   '打开 MCI WaveAudio 设备。
   MMControl1.Command = "Open"
End Sub为了正确管理多媒体资源，在退出应用程序之前，应该关闭那些已经打开的 MCI 设备。将下面的语句放到 Form_Unload 过程，那么在退出包含 Multimedia MCI 控件的窗体之前，就可以关闭那些已经打开的 MCI 设备。Private Sub Form_Unload (Cancel As Integer)
   MMControl1.Command = "Close"
End Sub