Nina » 05.10.2004 (Вт) 21:46
Можно так, если я правильно поняла, что требуется сделать:
Размещаем на форме:
1. Multimedia Control и называем его Music, указываем путь к файлу (FileName).
2. Timer и задаем интервал 1000 (секунда).
Код:
Dim k As Integer
Private Sub Form_Load()
Music.Command = "open"
Music.Command = "play"
End Sub
Private Sub Timer1_Timer()
k = k + 1
If k = 5 Then
Music.Command = "stop"
Music.Command = "close"
End If
End Sub
Через 5 секунд после появления формы музыка перестает звучать.