MIDI-vormingus helifailid on sageli pikad, mistõttu võib olla vajalik mängimine lõpetada
heli (nt kui makro on lõpetatud). Siin on näide:
Privaatne deklareerimisfunktsioon mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand kui string) Pika alammängina "play" & MidiFileName "alusta mängimist Else mciExecute" stop "& MidiFileName" lõpetage mängimine Lõpeta kui lõpp Alam alam TestPlayMidiFile () PlayMidiFile "c: \ kaustanimi \ helifaili nimi.mid", True MsgBox "MIDI -faili esitamise alustamisel klõpsake nuppu OK… "MsgBox" MIDI -faili esitamise lõpetamiseks klõpsake nuppu OK … "PlayMidiFile" c: \ kaustanimi \ helifaili nimi.mid ", vale lõpp -alam