' **************************************************************
'  Modul:  Zeit_3_Sekunden  Typ = Allgemeines Modul
' **************************************************************

Option Explicit

Sub MsgBox3Sekunden()
'   Blendet eine Msgbox nach 3 Sekunden automatisch wieder aus
'   von Franz W Herber.de
'   Verweis auf Microsoft Scripting Runtime
    Dim WsShell
    Dim intText As Integer
    Set WsShell = CreateObject("WScript.Shell")
    intText = WsShell.Popup("Diese Meldung wird nach 3 Sekunden geschlossen. Variante 1", 3, "Automatisch...")
    ' Die 3 in der letzten Zeile gibt die Dauer der Öffnung an.
End Sub

Sub MsgZeit()
'   Blendet eine Msgbox nach 3 Sekunden automatisch wieder aus
'   von K.Rola L.Vira
'   kein Verweis notwendig
    Const bytZeit As Byte = 3
    Dim objWSH As Object, intMSG As Integer
    Set objWSH = CreateObject("WScript.Shell")
    intMSG = objWSH.Popup("Ich bin in " & bytZeit & " Sekunden verschwunden! Variante 2" & Space(10), bytZeit, "gebe bekannt...")
    Set objWSH = Nothing
End Sub