main.frm

it works 100％ to Record Wave in visual basic 6.0

VERSION 5.00
Object = "{D01BD6BE-456A-4078-AEBF-3ACB85261FA6}#3.0#0"; "VCProX.ocx"
Begin VB.Form Form1 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "WaveRec :: (C) Lake of Soft"
   ClientHeight    =   4695
   ClientLeft      =   45
   ClientTop       =   330
   ClientWidth     =   7575
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   4695
   ScaleWidth      =   7575
   StartUpPosition =   3  'Windows Default
   Begin VB.Timer Timer1 
      Interval        =   500
      Left            =   3000
      Top             =   3840
   End
   Begin VB.Frame Frame4 
      Caption         =   "Playback"
      Height          =   4455
      Index           =   0
      Left            =   3840
      TabIndex        =   2
      Top             =   120
      Width           =   3615
      Begin VCProX.vcproWaveRiffX playWaveRiffX 
         Height          =   495
         Left            =   2280
         TabIndex        =   11
         Top             =   2040
         Width           =   735
         Active          =   0   'False
         AutoActivate    =   -1  'True
         CalcVolume      =   0   'False
         DumpInput       =   ""
         DumpOutput      =   ""
         IsFormatProvider=   -1  'True
         OverNum         =   5
         PcmBitsPerSample=   16
         PcmNumChannels  =   2
         PcmSamplesPerSec=   44100
         FileName        =   ""
         IsInput         =   -1  'True
         Loop            =   0   'False
         RealTime        =   -1  'True
         SyncEvents      =   0   'False
         FormatTag       =   1
      End
      Begin VCProX.vcproWaveOutDeviceX wavOutDeviceX 
         Height          =   495
         Left            =   2640
         TabIndex        =   13
         Top             =   2280
         Width           =   735
         Active          =   0   'False
         AutoActivate    =   -1  'True
         CalcVolume      =   0   'False
         DumpInput       =   ""
         DumpOutput      =   ""
         IsFormatProvider=   0   'False
         OverNum         =   5
         PcmBitsPerSample=   16
         PcmNumChannels  =   2
         PcmSamplesPerSec=   44100
         DeviceId        =   -1
         DeviceDirect    =   0   'False
         DeviceMapped    =   0   'False
         SyncEvents      =   0   'False
      End
      Begin VCProX.vcproDisplayBandsX bandP1 
         Height          =   855
         Left            =   120
         TabIndex        =   28
         Top             =   3480
         Width           =   1575
         Active          =   0   'False
         Interval        =   10
         Channel         =   0
         BandGap         =   0
         BandWidth       =   1
         Steps           =   8
         BandColorLow    =   49152
         BandColorMed    =   65535
         BandColorTop    =   255
         Color           =   0
      End
      Begin VCProX.vcproDisplayBandsX bandP2 
         Height          =   855
         Left            =   1920
         TabIndex        =   29
         Top             =   3480
         Width           =   1575
         Active          =   0   'False
         Interval        =   10
         Channel         =   1
         BandGap         =   0
         BandWidth       =   1
         Steps           =   8
         BandColorLow    =   49152
         BandColorMed    =   65535
         BandColorTop    =   255
         Color           =   0
      End
      Begin VB.CommandButton btnPSetup 
         Caption         =   "Setup..."
         Height          =   375
         Left            =   2760
         TabIndex        =   35
         Top             =   240
         Width           =   735
      End
      Begin VB.CheckBox chPLoop 
         Caption         =   "Loop"
         Height          =   255
         Left            =   120
         TabIndex        =   26
         Top             =   2040
         Width           =   855
      End
      Begin VB.TextBox txtPSamplingRate 
         BackColor       =   &H8000000F&
         Height          =   315
         Left            =   1320
         Locked          =   -1  'True
         TabIndex        =   23
         Text            =   "0"
         Top             =   960
         Width           =   1095
      End
      Begin VB.TextBox txtPBits 
         BackColor       =   &H8000000F&
         Height          =   315
         Left            =   120
         Locked          =   -1  'True
         TabIndex        =   22
         Text            =   "0"
         Top             =   960
         Width           =   735
      End
      Begin VB.CheckBox chPStereo 
         Caption         =   "Stereo"
         Enabled         =   0   'False
         Height          =   255
         Left            =   2640
         TabIndex        =   21
         Top             =   960
         Width           =   855
      End
      Begin VB.ComboBox cbPDevice 
         Height          =   315
         Left            =   720
         Style           =   2  'Dropdown List
         TabIndex        =   17
         Top             =   240
         Width           =   1935
      End
      Begin VB.CommandButton btnWavPlayStop 
         Caption         =   "Stop"
         Height          =   375
         Left            =   1200
         TabIndex        =   10
         Top             =   2400
         Width           =   975
      End
      Begin VB.CommandButton btnWavPlayStart 
         Caption         =   "Start"
         Height          =   375
         Left            =   120
         TabIndex        =   9
         Top             =   2400
         Width           =   975
      End
      Begin VB.TextBox Text4 
         Height          =   315
         Left            =   120
         TabIndex        =   8
         Text            =   "C:\Temp\Stream44.wav"
         Top             =   1680
         Width           =   3375
      End
      Begin VB.Label Label12 
         AutoSize        =   -1  'True
         Caption         =   "Right channel"
         Height          =   195
         Left            =   1920
         TabIndex        =   33
         Top             =   3240
         Width           =   990
      End
      Begin VB.Label Label11 
         AutoSize        =   -1  'True
         Caption         =   "Left channel"
         Height          =   195
         Left            =   120
         TabIndex        =   32
         Top             =   3240
         Width           =   885
      End
      Begin VB.Label laBytesPlayed 
         AutoSize        =   -1  'True
         Caption         =   "laBytesPlayed"
         Height          =   195
         Left            =   120
         TabIndex        =   24
         Top             =   2880
         Width           =   990
      End
      Begin VB.Label Label8 
         AutoSize        =   -1  'True
         Caption         =   "Sampling rate"
         Height          =   195
         Left            =   1320
         TabIndex        =   20
         Top             =   720
         Width           =   960
      End
      Begin VB.Label Label7 
         Caption         =   "Bits per sample"
         Height          =   255
         Left            =   120
         TabIndex        =   19
         Top             =   720
         Width           =   1095
      End
      Begin VB.Label Label2 
         AutoSize        =   -1  'True
         Caption         =   "Device"
         Height          =   195
         Left            =   120
         TabIndex        =   16
         Top             =   300
         Width           =   510
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "Playback from file"
         Height          =   195
         Index           =   0
         Left            =   120
         TabIndex        =   3
         Top             =   1440
         Width           =   1245
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "Recording"
      Height          =   4455
      Index           =   1
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   3615
      Begin VCProX.vcproWaveInDeviceX wavInDeviceX 
         Height          =   495
         Left            =   2280
         TabIndex        =   4
         Top             =   2040
         Width           =   735
         Active          =   0   'False
         AutoActivate    =   -1  'True
         CalcVolume      =   0   'False