Звучне датотеке у МИДИ-формату су често дугачке, па ће можда бити потребно да се прекине репродукција
звук (нпр. када је макро завршен). Ево примера:
Функција приватног декларисања мциЕкецуте Либ "винмм.длл" _ (БиВал лпстрЦомманд Ас Стринг) Као дугачак Суб ПлаиМидиФиле (МидиФилеНаме Ас Стринг, Плаи ас Боолеан) Иф Дир (МидиФилеНаме) = "" Затим изађите из Суб 'но филе то плаи Иф плаи тхен мциЕкецуте "плаи" & МидиФилеНаме 'почетак репродукције Иначе мциЕкецуте "стоп" & МидиФилеНаме' престанак репродукције Енд Иф Енд Суб Суб ТестПлаиМидиФиле () ПлаиМидиФиле "ц: \ фолдернаме \ соундфиленаме.мид", Труе МсгБок "Притисните ОК када МИДИ датотека почне да се репродукује… "МсгБок" Притисните ОК да бисте зауставили репродукцију МИДИ датотеке … "ПлаиМидиФиле" ц: \ име фасцикле \ име звучне датотеке.мид ", Фалсе Енд Суб