Dim titre As String
Dim message As String
Dim delai As Byte
Dim bouton As Byte
Dim wsh As Object
titre = "bonjour"
delai = 1 'en seconde
'valeur des boutons :
' 0 bouton ok seul.
' 1 OK et annuler.
' 2 Abandonner, recommencer ignorer.
' 3 oui non annuler.
' 4 oui et non.
' 5 recommencer annuler.
'
'typs d'icones
' 16 STOP
' 32 INTERROGATION.
' 48 EXCLAMATION.
' 64 INFORMATION.
bouton = 64
message = "Bienvenu sur XLD"
Set wsh = CreateObject("WScript.Shell")
wsh.Popup message, delai, titre, bouton