[AccessD] Custom MsgBox

Try this.  You will need a reference to the Windows Script Host Object
Model.

Regards,

Steve Goodhall


Function SJGMsgBox(sPrompt, Optional iButtons As Integer = vbOK, Optional
sTitle As Variant = Empty, _
    Optional iSeconds As Integer = 30)
Dim iResult As Integer, oWSH As WshShell
Set oWSH = CreateObject("wscript.shell")
iResult = oWSH.PopUp(sPrompt, iSeconds, sTitle, iButtons)

SJGMsgBox = iResult
Set oWSH = Nothing
End Function

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Gustav Brock
Sent: Friday, July 16, 2004 2:29 PM
To: Access Developers discussion and problem solving
Subject: [AccessD] Custom MsgBox


Hi all

Someone asked for a way to have a MsgBox go away by itself after a
delay.

Here's a site having some code for a custom messagebox also featuring
a "Don't show this again" checkbox:

  http://www.gipsysoft.com/messagebox/

/gustav

--
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com