'An example of recording to a wav file
    'using VB6.

    '**************************************
    'Do not save the silence section at
    'the end of the recording process:
    If chkCutSilence.Value = vbChecked Then
        cWave1.CutSilence = True
        cWave1.CutSilenceVal = 20
        txtResults.Text = txtResults.Text & Time & ": _
	CutSilence=True, Val=20." & vbCrLf
    End If
    
    'Silence/voice detection:
    If chkMeterIn.Value = vbChecked Then
        cWave1.MeterIn = True
        txtResults.Text = txtResults.Text & Time & ": _
	MeterIn=True." & vbCrLf
    End If
    
    '**************************************
    'Pre screen the sound buffers
    'to a different sound device:
    Dim lToDeviceIndex As Long
    
    'To the sound card device:
    lToDeviceIndex = 0
    
    'Pre screen check:
    If chkPreScreen.Value = vbChecked Then
        cWave1.PreScreenOpen WaveFormat_PCM, lToDeviceIndex
        txtResults.Text = txtResults.Text & Time _
	& ": PreScreenOpen." & vbCrLf
    Else
       cWave1.PreScreenClose
       txtResults.Text = txtResults.Text & Time _
	& ": PreScreenClose." & vbCrLf
    End If
           
    '**************************************
    'Start to record from a specific device
    'index (as the sound card, modem, etc..):
    lSoundDeviceIndex = cboDevices.ListIndex
    rc = cWave1.RecordStart(lSoundDeviceIndex, _
	txtAudioFile.Text, _
	WaveFormat_PCM, _
	1600)
    'Check if an error appears:
    If rc <> 0 Then
        txtResults.Text = txtResults.Text & Time _
	& ": Error RecordStart ." & _
	cWave1.WaveOutErrText(rc) & vbCrLf
        Exit Sub
    End If