Kód: Vybrať všetko

mciSendString("save recsound c:\Users\Jeff\RECSOUND1.wav", "", 0, 0) mciSendString("close recsound", "", 0, 0) 
MsgBox("File Created: C:\recsound.wav")
 Label1.Text = "Stopped..." 
Label1.Visible = False My.Computer.Audio.Stop()

Kód: Vybrať všetko

mciSendString("Stop recsound", 0&, 0, 0) 'stop record
mciSendString("save recsound c:\Users\Jeff\RECSOUND1.wav", 0&, 0, 0) 'save
mciSendString("close recsound", 0&, 0, 0)
MsgBox("File Created: C:\recsound.wav")
Label1.Text = "Stopped..."
Label1.Visible = False 
My.Computer.Audio.Stop()