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 Sub Command1_Click()
    Dim strAufnahme As String * 256
        If mciSendString("open new type waveaudio alias recwave", strAufnahme, _
          256, 0) <> 0 Then Exit Sub
        If mciSendString("record recwave", strAufnahme, 256, 0) <> 0 Then Exit Sub
End Sub
Private Sub Command2_Click()
    Dim strAufnahme As String * 256
        If mciSendString("stop recwave", strAufnahme, 256, 0) <> 0 Then Exit Sub
        If mciSendString("save recwave WAVE", strAufnahme, 256, 0) <> 0 Then _
          Exit Sub
        If mciSendString("close recwave", strAufnahme, 256, 0) <> 0 Then Exit Sub