[AccessD] Auto Close a Simple MessageBox

I found this in an old forum to allow a messagebox to close automatically.
I've tried it and it works just fine!

'--------------
Alternatively you could use the following code in place of your message box:

CreateObject("WScript.Shell").Popup "Test.", 2, "Test"

the user can also click the ok button to close the popup, or the popup will
automatically close itself after two seconds, and continue on with your
macro. replace "Test" with the appropriate message and title, and replace
the number 2 with the number of seconds you want the popup to remain.
'--------------

Dan