Hi, Does anybody know whether a message on the status bar could be enhanced visually e.g. by using colour or have text flashing?
I have a lenghty printing process and want to display a message like "Printing in progress - Do not interrupt" kind of thing. Perhaps there is an alternative way to display such a message? I don't want the user to be able to clear the message. I want the message removed automatically when the process is completed.
You could make the text appear to flash or scroll by changing the status bar text in a loop sequence.
strStatus = "This text is scrolling Left <-- <--"
nLen = Len(strStatus)
nLoops = 10
x = 0
Do While x < nLoops
Application.StatusBar = strStatus
For n = nLen To 0 Step -1
strDisp = Right(strStatus, n)
Application.StatusBar = strDisp
x = x + 1
fSpeed = 0.02
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay