Pliki dźwiękowe w formacie MIDI są często długie, więc może być konieczne przerwanie odtwarzania
dźwięk (np. po zakończeniu makro). Oto przykład:
Private Declare Function mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) As Long Sub PlayMidiFile(MidiFileName As String, Play As Boolean) If Dir(MidiFileName) = "" Then Exit Sub ' brak pliku do odtworzenia If Play Then mciExecute "play " & MidiFileName ' zacznij grać Else mciExecute "stop " & MidiFileName ' zatrzymaj odtwarzanie End If End Sub Sub TestPlayMidiFile() PlayMidiFile "c:\foldername\soundfilename.mid", True MsgBox "Kliknij OK, gdy rozpocznie się odtwarzanie pliku MIDI… " MsgBox "Kliknij OK, aby zatrzymać odtwarzanie pliku MIDI… " PlayMidiFile "c:\nazwa_folderu\nazwapliku dźwiękowego.mid", False End Sub