oops
PauseTime = 5
Start = Timer
Do While Timer < Start + PauseTime
DoEvents
ThisApplication.StatusBarText = "Metric Units Set"
Loop
Add the DoEvents line otherwise you can't click on anything for 5 seconds...
--
Sean Dotson, PE
http://www.sdotson.com
Check the Inventor FAQ for most common questions
www.sdotson.com/faq.html
-----------------------------------------------------------------------
"Sean Dotson" wrote in message
news:B061A0F6B1BAA550122B3A20BE7D51A4@in.WebX.maYIadrTaRb...
> PauseTime = 5
> Start = Timer
> Do While Timer < Start + PauseTime
> ThisApplication.StatusBarText = "Test Me"
> Loop
>
> This will make it stay for 5 seconds. After 5 seconds it will disappear
if
> you move the mouse.
>
> --
> Sean Dotson, PE
> http://www.sdotson.com
> Check the Inventor FAQ for most common questions
> www.sdotson.com/faq.html
> -----------------------------------------------------------------------
> "Scott Stubbington" wrote in message
> news:C215311A91090E84D8424E6298DA0D0D@in.WebX.maYIadrTaRb...
> > Hello,
> > Can someone suggest a way of making status bar text stay there for about
3
> > seconds. I've creatde a toggle units macro and I display the new units
of
> > measure in the status bar, however if you blink you will miss it.
> >
> > Scott
> >
> >
>
>
