[Return to contents]
Last updated: before December, 1998
When this script is called, the message turns RED, blinks 5 times and then turns black and stops.
"Warn" is a text box with the required message on a view i.e. Please Wait.......
The text color of the message is Black.
The fill color of the view is white.
The flashing color of text is Red.
This script was forwarded from the Approach Discussion community on Lotus Support Website.
Sub Click(Source As Button, X As Long, Y As Long, Flags As Long) for i = 1 to 5 source.warn.font.color.setrgb(color_red) source.warn.setfocus for q = 1 to 50000 next source.warn.font.color.setrgb_white source.warn.setfocus for q = 1 to 50000 next next source.warn.font.color.setrgb(color_black) End Sub