Lydfiler i MIDI-format er ofte lange, så det kan være nødvendigt at stoppe afspilningen
lyden (f.eks. når makroen er færdig). Her er et eksempel:
Privat erklære funktion mciExecute Lib "winmm.dll" _ (ByVal lpstrCommand As String) As Long Sub PlayMidiFile (MidiFileName As String, Play As Boolean) If Dir (MidiFileName) = "" Derefter Afslut Sub 'ingen fil til afspilning Hvis Play Så mciExecute "play" & MidiFileName 'start med at spille Else mciExecute "stop" & MidiFileName' stop playing End If End Sub Sub TestPlayMidiFile () PlayMidiFile "c: \ foldername \ soundfilename.mid", True MsgBox "Klik OK, når MIDI -filen starter afspilning … "MsgBox" Klik på OK for at stoppe afspilningen af MIDI -filen … "PlayMidiFile" c: \ mappenavn \ soundfilename.mid ", False End Sub