Visual Basic 2008 Tutorial: Sound Recorder

The coding is provided here. Here is the link to download http://adf.ly/1YXZ8u.

The library function:
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 ' this a function that will do all the recording.

For Button1 (Record):
Button1.Enabled = False
Button2.Enabled = True
Button3.Enabled = False
Label1.Text = "Recording..."
mciSendString("open new Type waveaudio Alias recsound", "", 0, 0)
mciSendString("record recsound", "", 0, 0)

For Button2 (Stop):
Dim temp As String
If Label1.Text = "Playing..." Then
Button1.Enabled = True
Button2.Enabled = False
Label1.Text = "Stopped..."
My.Computer.Audio.Stop()
ElseIf Label1.Text = "Recording..." Then
try
SaveFileDialog1.Filter = "MP3 Audio Files|*.mp3"
SaveFileDialog1.FileName = "Untitled"
If SaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
temp = SaveFileDialog1.FileName
mciSendString("save recsound " & chr(34) & temp & chr(34) , "", 0, 0)
mciSendString("close recsound", "", 0, 0)
Label1.Text = "Stopped..."
Label1.Visible = False
Button1.Enabled = True
Button3.Enabled = True
My.Computer.Audio.Stop()
End If
Catch ex As Exception
MsgBox ex.Message
End Try
End If

For Button3 (Play):
OpenFileDialog1.Filter = "MP3 Audio Files|*.MP3"
OpenFileDialog1.FileName = ""
If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Button1.Enabled = False
My.Computer.Audio.Play(OpenFileDialog1.FileName, AudioPlayMode.Background)
Label1.Text = "Playing..."
Label2.Text = OpenFileDialog1.FileName
Label1.Visible = True
End If