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
        mciSendString("open new Type waveaudio Alias voicerec", "", 0, 0)
        mciSendString("set voicerec bitspersample 16 alignment 2 samplespersec" & _
          "22050 bytespersec 44100 format tag pcm wait", "", 0, 0)
        mciSendString("record voicerec", "", 0, 0)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        mciSendString("stop voicerec wait", "", 0, 0)
        mciSendString("seek voicerec to start wait", "", 0, 0)
        mciSendString("play voicerec ", "repeat", 0, 0)
    End Sub
End Class