<div>
Private Declare Function mciSendString Lib &quot;winmm.dll&quot; Alias &quot;mciSendStringA&quot; (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long<br />
Private Declare Function sndPlaySound Lib &quot;winmm.dll&quot; Alias &quot;sndPlaySoundA&quot; (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long<br />
<br />
Private Sub Command1_Click()<br />
On Local Error Resume Next<br />
Dim i As Long, RS As String, cb As Long, t#<br />
Dim start<br />
RS = Space$(500)<br />
Kill &quot;c:\cdtest.wav&quot; 'Delete old wav file there<br />
start = Timer<br />
<br />
Do While Timer &lt;&nbsp;(start + 2)<br />
DoEvents<br />
i = mciSendString(&quot;open new type waveaudio alias capture&quot;, RS, 128, cb)<br />
i = mciSendString(&quot;record capture&quot;, RS, 128, cb)<br />
Loop<br />
<br />
i = mciSendString(&quot;stop capture&quot;, RS, 128, cb)<br />
i = mciSendString(&quot;save capture c:\cdtest.wav&quot;, RS, 128, cb)<br />
i = mciSendString(&quot;close capture&quot;, RS, 128, cb)<br />
<br />
End Sub<br />

</div>


Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Command1_Click()
On Local Error Resume Next
Dim i As Long, RS As String, cb As Long, t#
Dim start
RS = Space$(500)
Kill "c:\cdtest.wav" 'Delete old wav file there
start = Timer

Do While Timer < (start + 2)
DoEvents
i = mciSendString("open new type waveaudio alias capture", RS, 128, cb)
i = mciSendString("record capture", RS, 128, cb)
Loop

i = mciSendString("stop capture", RS, 128, cb)
i = mciSendString("save capture c:\cdtest.wav", RS, 128, cb)
i = mciSendString("close capture", RS, 128, cb)

End Sub


<div>
<div class="content wysiwyg-content">
I need to record a 2 second spoken voice (in wav format) in VB with a click of a button. The code should automatically save the recorded voice into a wave file. How do I do that? I don't want to use the Windows Sound Recorder to do that.
</div>
</div>


I need to record a 2 second spoken voice (in wav format) in VB with a click of a button. The code should automatically save the recorded voice into a wave file. How do I do that? I don't want to use the Windows Sound Recorder to do that.

Recording sound in VB

Visual Basic is Microsoft’s event-driven programming language and integrated development environment (IDE) for its Component Object Model (COM) programming model. It is relatively easy to learn and use because of its graphical development features and BASIC heritage. It has been replaced with VB.NET, and is very similar to VBA (Visual Basic for Applications), the programming language for the Microsoft Office product line.