Как в MediaPlayer проиграть случайный трек после окончания предыдущего

[Mmo]

doober, шаманство, но работает ))) Спасибо большущее!

[Mmo]

doober, только на 64x системе ругается. Там из какой библиотеки надо Sleep брать, не в курсе? А то я пока просто через большой цикл перегрузил - ещё большее шаманство ))

[Скрипт]

Пункт 1

Использование для остановки работы макроса API-функции "Sleep".

Код не тестировал, т.к. у меня нет компьютера с "Windows 64". Информацию взял в интернете.

#If Win64 Then
    'Если "Windows 64", то нужно добавить после слова "Declare"
        'слово "PtrSafe". А тип данных "Long" заменить на "LongLong".
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As LongLong)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If
    
'Какая-нибудь процедура
    '(В "VBA" программный код в некоторых случаях называется "процедура").
Sub Procedure_1()
    
    Call Sleep(1000)
    
End Sub

Примечание

1. Конструкция "#If ... Then ... #Else ... #End If" называется "Условная компиляция". Это означает, что какая-то часть кода вообще не будет рассматриваться компилятором, хоть эта часть кода и записана в коде.
2. Компиляция - это первод кода из текстового вида, который мы видим на мониторе в программе "VBA", в другой вид, который понятен компьютеру.
3. Компилятор - это программа, которая делает компиляцию. Где эта программа находится в программе "VBA", я не знаю.
4. Условная компиляция - слово "условная" означает, что присутствует условие. В программирование условие связано с конструкцией "If ... Then ... End If".

Пункт 2

Использование для приостановки работы макроса Excel-метода "Wait".

Sub Procedure_1()
    
    'Функция "DateAdd" добавляет или убавляет от одной даты другую дату.
        'Interval:="s" - означает секунды.
        'Number:=1 - 1 секунда.
        'Now - текущие дата и время.
    Application.Wait Time:=DateAdd(Interval:="s", Number:=1, Date:=Now)

End Sub

[Mmo]

Спасибо. Выяснить бы ещё всё-таки почему оно останавливается...