لتسجيل الصوت من المايكروفون و اعادة استماعه

كود :
Public Class Form1 

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

Private Sub btnRecordFromMicrophone_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnRecordFromMicrophone.Click 

' record from microphone

mciSendString("open new Type waveaudio Alias recsound", vbNullString, 0, 0) 

mciSendString("record recsound", vbNullString, 0, 0)

End Sub

Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click 

' stop and save 

mciSendString("save recsound c:\record.wav", vbNullString, 0, 0) 

mciSendString("close recsound", vbNullString, 0, 0)

End Sub

Private Sub btnPlayRecordedSound_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnPlayRecordedSound.Click 

' play audio

My.Computer.Audio.Play("c:\record.wav", AudioPlayMode.WaitToComplete) 

End Sub

End Class