MS Word Animation is Splash screen?

[JVerdaasdonk]

Hi,

In this forum I found some code to make a splash screen.
This is the code: (thanks to the members who made this available!)

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub UserForm_Activate()
DoEvents
' Set the display time in milliseconds
Sleep CLng(5000)
Unload Me
End Sub

In this UserForm I want to play some kind of animation (movie)
At work we have some programs that use similar splash screens, but I’ve not got a clue on how to build this.

I think I need some particular control in witch I can load the animation. (should this be Avi or..?)
And then I think I need some code that will fire the animation and let it stop as soon as the splash time is past. (or does this happen anyway?)

I’ve found some controls that could contain an mpeg or avi format, but I wasn’t able to get it to work. Word crashed on every single time I tried.

Could someone tell me what I need? (please in simple terms, this is a new topic for me)

Thanks in advance,
Joost Verdaasdonk

 

[JVerdaasdonk]

Hi,

Has anyone got a direction for me to look for?

Tnxxx,
Joost

 

[PHV]

Have you tried to add this reference ?
ActiveMovie control type library


Hope This Help, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884

 

[JVerdaasdonk]

Hi,

Thanks for you’re response!

Yes I’ve added that reference and I’ve tried numerous controls. (that sound like they can hold animations)

The problem is that Word crashes every single time. (cannot display error because its in my native language)

What happens:

I put the control on to my userform. (doesn’t matter witch one, I’ve used the one you said)
When I try to save word I get the following error: (something like this)

There is not enough space on the disk, please make room to save to the disk?

I’m not able to close down word also, so I tried to delete the control.
That also doesn’t work, now I get a VBA error that totally hangs Word.

Then I have to kill Word via the taskmanager.

I’m sure it should work, but I’m doing something terribly wrong.

It’s not possible that the problem is in my computer, I’ve tried this on 4 pc’s so far all with XP. Every single time I receive the same error’s.

Thnxx for you’re time!

Joost