VB.NET Wav 파일로 녹음

Imports System.Runtime.InteropServices

Public Class Form1

    <DllImport("winmm.dll")> _
    Private Shared Function mciSendString(ByVal command As String, ByVal buffer As String, ByVal bufferSize As Integer, ByVal hwndCallback As IntPtr) As Integer
    End Function

    '녹음
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
        mciSendString("record recsound", "", 0, 0)
    End Sub

    '저장
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        mciSendString("save recsound " & Chr(34) & "c:\test.wav" & Chr(34), "", 0, 0) 'chr(34) = "
        mciSendString("close recsound", "", 0, 0)
    End Sub
End Class