为何我的代码不能录音？

[「已注销」]

Option Explicit

Private Sub Command1_Click()
   MMC.Command = "Stop"
   MMC.Command = "Save"
   MMC.Command = "Close"

End Sub

Private Sub Form_Load()
   Open "d:\1.wav" For Binary As #1
   Close

   MMC.DeviceType = "WaveAudio"
   MMC.FileName = "d:\1.wav"
   MMC.Command = "Open"
   MMC.Command = "Record"

End Sub

程序开启后应该就开始录音了。点击按钮应该就停止保存了。但是那个wav文件还是空的。请问有什么问题？

[「已注销」]

谁能回答一下？

[dushuhu2009]

哪位高人帮忙解答一下，我也很想知道！