'Private Declare Function GetTickCount Lib "Kernel32" () As Long
' Do
' On Error Resume Next
' Do While GetTickCount() < GetTickCount() + 500
' DoEvents
' Me.Caption = "Bienvenue, nous sommes le " & Date & " et il est " & Format(Now, "h:mm:ss;@")
' Loop
' Loop