Zeitablauf
serge
Warum schliesst sich diese Meldiung nicht mehr nach 3 Sekunden bei mir?
Sub Box()
Const bytZeit As Byte = 3
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Diese Nachricht zerstört sich in " & bytZeit & " Sekunden von selbst! _
_
" & Space(10), bytZeit, "Hinweis")
Set objWSH = Nothing
End Sub
Danke Serge