'*********** Código ***************
'
' msgboxTemporal
'
' Rutina que demuestra el uso del
' método PopUp del objeto wshShell
' Nos da la posibilidad de estable-
' cer un tiempo de duración en su
' segundo argumento. Por lo demás
' es casi igual que el MsgBox (así
' como el uso de sus constantes vb)
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Sub msgboxTemporal()
Dim wShell As Object 'New wshShell
Dim respuesta As Integer

    Set wShell = CreateObject("WScript.Shell")
    
    respuesta = wShell.PopUp("Estaré abierto 5 segundos", _
        5, "Método wshShell.Popup", vbYesNo + vbInformation)
    
    Select Case respuesta
        Case -1: MsgBox "No has apretado ningún botón"
        Case vbYes: MsgBox "Has apretado el botón ""Sí"" "
        Case vbNo: MsgBox "Has apretado el botón ""No"" "
    End Select
    
    Set wShell = Nothing

End Sub
'********* Fin código *************