Fehler in MessageBox Code
Tim
ich habe scheinbar einen Fehler in folgendem Code für eine MessageBox.
Eigentlich soll die MessageBox nach 2 Sekunden automatisch verschwinden, sie bleibt jedoch so lange offen, bis ich auf OK klicke - kann mir jemand helfen ?
Sub UnauthorizedOpening_Msg()
Const bytZeit As Byte = 2
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("Ooops !", bytZeit, "Unauthorized Access !")
Set objWSH = Nothing
End Sub