Private Declare Function GetTickCount Lib "kernel32" () As Long

 

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 Delay As Long

 

Private Sub Form_Load()

 

   Call mciSendString("open new type waveaudio alias mywav", 0, 0, 0)

 

   Me.Caption = "Rec"

 

   Call mciSendString("record mywav", 0, 0, 0)

 

   Delay = GetTickCount + 3000:

 

   Do Until GetTickCount > Delay

 

      DoEvents

 

   Loop

 

   Call mciSendString("stop mywav", 0, 0, 0)

 

   Call mciSendString("save mywav c:\cdtest.wav", 0, 0, 0)

 

   Call mciSendString("close mywav", 0, 0, 0)

 

   Me.Caption = "OK"

End Sub