Comment fermer une msgbox (en vbs) automatiquement ?

Const TIMEOUT = 5
Set objShell = WScript.CreateObject("WScript.Shell")

Reponse = objShell.Popup(vbCrLf & _
 "Ce Popup remplace un MsgBox" &vbCrLf&vbCrLf& "Sans action de votre part," &vbCrLf&vbCrLf&_
  "ce popup s'effacera dans " &vbCrLf& TIMEOUT & " secondes" &vbCrLf&vbCrLf&_
  "Vous ne pouvez pas fermer ce popup par la croix !!!" ,TIMEOUT, _
  "MsgBox personnalisé",2)
 
Select Case Reponse
   Case vbYes: objShell.Popup "Vous avez cliqué sur Oui" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
   Case vbNo:  objShell.Popup "Vous avez cliqué sur Non" & vbCrLf & vbCrLf & vbCrLf,TIMEOUT
   Case -1:    Wscript.Quit
End Select

Const TIMEOUT = 10
Dim wshShell, btn
Set wshShell = WScript.CreateObject("WScript.Shell")

' Call the Popup method with a x second timeout.
btn = WshShell.Popup("Do you feel alright?", TIMEOUT, "Question:", &H4 + &H20)

Select Case btn
    ' Yes button pressed.
    case 6
    	WshShell.Popup"Do you feel alright?", TIMEOUT, "Oui:"
    ' No button pressed.
    case 7
    	WshShell.Popup"Do you feel alright?", TIMEOUT, "Non:"
    ' Timed out.
    case -1
    	WshShell.Popup"Do you feel alright?", TIMEOUT, "TimeOut:"
End Select