Boa tarde Amigo !!!
Para sortear um arquivo de 1.mpg a 10.mpg em uma pasta especifica lá vai:
'No evento que vc quizer coloque o código abaixo:
'
'Cria a variavel que vai armazenar o nome do arquivo
'de video MPG
'
Dim xMeuVideo
xMeuVideo = "C:SuaPasta" & Int((10 * Rnd) + 1) & ".mpg"
'
'Agora é só você fazer referência dessa variavel ao
'comando ou função que vai executar o video
'Exemplo: ExecutarVideo xMeuVideo
'
'Fim
Tentei