Question trying to record using mciSendstring

[Artsound]

nothing saves--any help?

Public Class recordingtTry

    Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstyCommand As String, _
    ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer

    Private Sub recordingtTry_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 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:\Users\pb\Desktop\vb.net experiments\sound.wav", "", 0, 0)
        mciSendString("close recsound", "", 0, 0)
        MsgBox("File Created!", MsgBoxStyle.OkOnly, "Success")
        Label1.Text = "Stopped"
        Label1.Visible = False

    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:\Users\pb\Desktop\vb.net experiments\sound.wav", AudioPlayMode.Background)

    End Sub
End Class

 

[Artsound]

got it working

got it working

Imports System.Runtime.InteropServices 'Import

Public Class recordingtTry

    <DllImport("winmm.dll", EntryPoint:="mciSendStringA", CharSet:=CharSet.Ansi, SetLastError:=True, ExactSpelling:=True)> _
    Private Shared Function mciSendString(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Integer, ByVal hwndCallback As Integer) As Integer
    End Function


    Private Sub recordingtTry_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 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:\Users\pb\Desktop\sound.wav", "", 0, 0)
        mciSendString("close recsound", "", 0, 0)
        MsgBox("File Created!", MsgBoxStyle.OkOnly, "Success")
        Label1.Text = "Stopped"
        Label1.Visible = False

    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:\Users\pb\Desktop\sound.wav", AudioPlayMode.Background)

    End Sub
End Class