Zvukové soubory ve formátu MIDI jsou často dlouhé, takže může být nutné přestat hrát
zvuk (např. když je makro hotové). Zde je příklad:
Soukromá deklarační funkce mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand jako řetězec) jako dlouhý dílčí PlayMidiFile (MidiFileName jako řetězec, hrát jako booleovský) If Dir (MidiFileName) = "" Pak Exit Sub 'žádný soubor k přehrávání If Play Then mciExecute "play" & MidiFileName 'start playing Else mciExecute "stop" & MidiFileName' stop playing End If End Sub Sub TestPlayMidiFile () PlayMidiFile "c: \ foldername \ soundfilename.mid", True MsgBox "Klikněte na OK, když MIDI soubor začne hrát … "MsgBox" Kliknutím na OK zastavíte přehrávání MIDI souboru … "PlayMidiFile" c: \ název_složky \ soundfilename.mid ", False End Sub