VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} formulaire_musique 
   Caption         =   "UserForm1"
   ClientHeight    =   4500
   ClientLeft      =   108
   ClientTop       =   456
   ClientWidth     =   6480
   OleObjectBlob   =   "formulaire_musique.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "formulaire_musique"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub UserForm_Initialize()
    Dim date_max As Date
    
    'Définit et lit un fichier
    WindowsMediaPlayer1.Url = Ma_musique
    
    'Durée musique
    date_max = Now + TimeValue(durée_musique)
    While Now <= date_max
        DoEvents
    Wend

End Sub