pop up

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