Time a MsgBox

[Juggler_IN]

I found the below code at atlaspm. But it is not getting executed even after adding reference to "Windows Script Host Object Model."

Sub MessageBoxTimer()
    Dim AckTime As Integer, InfoBox As Object
    Set InfoBox = CreateObject("WScript.Shell")
    'Set the message box to close after 10 seconds
    AckTime = 10
    Select Case InfoBox.Popup("Click OK (this window closes automatically after 10 seconds).", _
    AckTime, "This is your Message Box", 0)
        Case 1, -1
            Exit Sub
    End Select
End Sub

Any possible edit?

 

[Fluff]

What do you mean it's not getting executed?

 

[Juggler_IN]

@Fluff; No not getting executed. The popup box stays open.

 

[Fluff]

Works for me, although it takes about 20 seconds before it closes.