Can't load flash controls at runtime?

[Osimonbinladen]

Hey guys, long time no see.
I have searched everywhere on the internet and I couldn't find an answer.
The problem is at school due the threat of viruses you can't add components.
So instead I have to reference them and load them at runtime.
I can get it working for most things but I am having problems with the flash control.

This is my code:

Dim flash As ShockwaveFlash
Call Controls.Add("ShockwaveFlash.ShockwaveFlash.10", "flash")
Set flash = CreateObject("ShockwaveFlash.ShockwaveFlash.10")

This returns with a type mismatch.
So then I try:

Dim flash As ShockwaveFlashObjects.FlashProp
Call Controls.Add("ShockwaveFlash.ShockwaveFlash.10", "flash")
Set flash = CreateObject("ShockwaveFlash.ShockwaveFlash.10")

But then I can't use the "LoadMovie" function.
I am left really confused...
Any ideas anyone?