Voice Recorder dengan VB.NET

Asset : 3 Button

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

    'Record Sound   

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

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

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

    End Sub

    'Save Recorded Sound 

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

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

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

    End Sub

    'Play Recorded Sound

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

        My.Computer.Audio.Play("D:\record.wav", AudioPlayMode.Background)

    End Sub