[ziad.mg95]

بارك الله فيك وفي عملك الجميل 

اخي ممكن تشاهد الفيديو ده الفيديو 
والاكواد المستخدمه اهي 

كود :

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 Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

       Button1.Enabled = False

       Button2.Enabled = True

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

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

       Label1.Text = "Recording..."

       Label1.Visible = True

   End Sub

   Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

       Button1.Enabled = True

       Button2.Enabled = False

       Button3.Enabled = True

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

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

       MsgBox("File Created: C:\recsound.wav")

       Label1.Text = "Stopped..."

       Label1.Visible = False

       My.Computer.Audio.Stop()

   End Sub

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

       Label1.Text = "Playing..."

       Label1.Visible = True

       My.Computer.Audio.Play("c:\recsound.wav", AudioPlayMode.Background)

   End Sub
End Class