VBA Popup timer not working
I am using the following vba code to automatically close a PopUp box. My Popup box displays, but is does not close after alloted time. My research has shown that other user have used similar code and it works for them.
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, "Data connections have all been refreshed!", 0)
Case 1, -1
Exit Sub
End Select
Any help would be appreciated,
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, "Data connections have all been refreshed!", 0)
Case 1, -1
Exit Sub
End Select
Any help would be appreciated,
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
I appreciate your responses. I have a work around that I am not satisfied with currently. I will try your suggestions and update in next couple of days.