Gemme wavefil.....

Hmm... nææ ik
men du kan altid bruge denne metode



Private Declare Function mciSendString Lib "winmm.dll" Alias _    "mciSendStringA" (ByVal lpstrCommand As String, ByVal _    lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _    hwndCallback As Long) As Long

Private Sub Command1_Click()

    i = mciSendString("open new Type waveaudio Alias capture", 0&, 0, 0)    i = mciSendString("set capture bitspersample 8", 0&, 0, 0)    i = mciSendString("set capture samplespersec 11025", 0&, 0, 0)    i = mciSendString("set capture channels 1", 0&, 0, 0)    i = mciSendString("record capture", 0&, 0, 0)    'bitspersample can be:
    '8
    '16
    '
    'samplespersec can be:
    '11025
    '22050
    '44100
    '
    'channels can be:
    ' 1 = mono
    ' 2 = stereo
End Sub



Private Sub Command2_Click()

    i = mciSendString("stop capture", 0&, 0, 0)    i = mciSendString("save capture c:\NewWave.wav", 0&, 0, 0)    'i = mciSendString("close capture", 0&, 0, 0)
End Sub



Private Sub Command3_Click()

    i = mciSendString("play capture from 0", 0&, 0, 0)End Sub



Private Sub Form_Load()

    Me.Caption = "WAVE RECORDER"    Command1.Caption = "Record"    Command2.Caption = "Stop"    Command3.Caption = "Play"End Sub



Private Sub Form_Unload(Cancel As Integer)

    i = mciSendString("close capture", 0&, 0, 0)End Sub