[RESOLVED] Splash Screen under VBA for Visio

[googull]

I am coding VBA under Visio 2002 and having trouble scripting something as simple as a splash screen for our visio scripts. I am using a simple form.show when visio drawing is opened. Challenge is getting the form to properly display, time out, and then form.hide itself. I've tried opening the form modeless with loop delays but the form doesn't paint any details, just a blank square that then closes itself. The VB rich sleep and time related event calls are all missing from the VBA library under Visio. Does anyone have a solution to get the form to actually display, time out and close itself using VBA?

[RobDog888]

welcome to the Forums.

You could do a For Loop delay based on the system time. If its x number of seconds or more then dismiss the splash screen. In the loop place a DoEvents

[googull]

Rob - thanks for the warm welcome and the advice. That was exactly what I needed.

Sub Splash_Screen()
Dim istart, istick As Double
istick=3 'length of splash in seconds
SplashScreen.Show vbModeless
istart = Timer
Do While Timer < istart + istick
    DoEvents
Loop
SplashScreen.Hide
End Sub