MsgBox automatisch schließen - geht nicht
08.07.2007 21:58:00
{Boris}
bin ob des soeben beantworteten Threads irritiert bezüglich dieses Codes, der eine MsgBox nach x Sekunden automatisch wieder schließt:
Option Explicit
Sub MsgZeit()
'von K.Rola
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!" & Space(10), bytZeit, _
"gebe bekannt...")
Set objWSH = Nothing
End Sub
Der Code lief bei mir bisher stets einwandfrei - nur jetzt nicht. Die Box erscheint, verschwindet aber nicht mehr automatisch. Woran kann das denn liegen?
Grüße Boris