salut,
en VB6 (??!!) pour le 100% :
Option Explicit
'
Private Sub Form_Load()
Dim lDebut As Long
MsgBox "Cliquez pour commencer"
lDebut = Timer
While Timer < lDebut + 2
DoEvents
Wend
MsgBox "Voilà, 2 secondes à 100%"
Unload Me
End Sub
Coloration syntaxique automatique [AFCK]
en 50%, je doute que celà soit vraiment faisable.... dépend trop de la machine par elle-même...
nb : attention à "Timer" au passage de minuit.
@+
PCPT [AFCK]