كود صنع برنامج لتسجيل الصوت

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 hwndCall As Integer) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    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 Recording", "", 0, 0)

        mciSendString("Record Recording", "", 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 Recording C:\Recording.Wav", "", 0, 0)

        mciSendString("Close Recording", "", 0, 0)

        MsgBox("File Was Successfully Recorded : c:\Recording.Wav")

        Label1.Text = "Recording 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 Recorded File"

        Label1.Visible = True

        My.Computer.Audio.Play("c:\Recording.Wav", AudioPlayMode.Background)

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Me.Close()

    End Sub

End Class