Hi,
This does pull the form up into view for 20 seconds... just like the doctor ordered;
but my script loses focus and does not continue.  This is what I have:\

Sub formScript1(Optional dummy As String)
Connect "demo1", stStream
frmThinking.Show 0
Wait 20
frmThinking.Hide
End Sub


It calls the form frmThinking; but when it hides the form, the script just sits
there and doesn't pick up where it left off.

Any ideas?
Thanks,
Scott



-----Original Message-----
From: [EMAIL PROTECTED]
[mailto:[EMAIL PROTECTED] Behalf Of Rich McNeil
Sent: Monday, July 26, 2004 3:37 PM
To: [EMAIL PROTECTED]
Subject: RE: [Talk] Display message to user


Here's a simple script that does what you're looking for.  It pops up a form
that says Thinking!" until the user loads our demo1 application and pulls up
some data, then the WorkStation shuts down.  The project is attached.  I've
added a UserForm to the project (right click on the Project Explorer and
select Insert...UserForm) and changed its Caption to "Thinking!"

Connect "demo1", stStream
UserForm1.Show 0 ' the 0 is important
Pause "DEMO1 [EMAIL PROTECTED],1"
UserForm1.Hide
Shutdown = True

Rich McNeil
Boston Software Systems
866 653 5105
www.bostonworkstation.com


***************************************************************************************
CONFIDENTIALITY NOTICE: This e-mail communication and any 
attachmentsmay contain confidential and privileged information for the 
use of the designated recipients named above.  If you are not the intended
recipient, you are hereby notified that you have received this communication
in error and that any review, disclosure, dissemination, distribution or 
copying of it or its contents is prohibited.
If you have received this communication in error, please notify Saratoga 
Hospital immediately by e-mail at [EMAIL PROTECTED] and destroy
all copies of this communication and any attachments.

Reply via email to