Geluidsbestanden in MIDI-formaat zijn vaak lang, dus het kan nodig zijn om te stoppen met spelen
het geluid (bijvoorbeeld wanneer de macro is voltooid). Hier is een voorbeeld:
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 ' geen bestand om af te spelen If Play Then mciExecute "play " & MidiFileName ' start met afspelen Anders mciExecute "stop" & MidiFileName ' stop met afspelen End If End Sub Sub TestPlayMidiFile() PlayMidiFile "c:\foldername\soundfilename.mid", True MsgBox "Klik op OK wanneer het MIDI-bestand begint te spelen… " MsgBox "Klik op OK om te stoppen met het afspelen van het MIDI-bestand… " PlayMidiFile "c:\foldername\soundfilename.mid", False End Sub