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?

[MartinLiss]

See this thread in the FAQ forum for another way to do it.

[Osimonbinladen]

Yeah, that's how I do it with other controls.
But I think I have the wrong name in the line:

Controls.Add("ShockwaveFlash.ShockwaveFlash.10", "flash")

Because it returns a "ShockwaveObjects.FlashProp" which isn't want I'm wanting.
Also the only Flash control that allows WithEvents is "ShockwaveObjects.Shockwave"
Now do you see my problem?

Note: I got the name "ShockwaveFlash.ShockwaveFlash.10" from regedit.

[MartinLiss]

Did you see post #3 in the thread I referred you to?

[Osimonbinladen]

I need to load them at runtime.
I can't load them at design time.
If I try to add new components, VB crashes.
So I can't use the Load() function.
Any more ideas?

[MartinLiss]

I need to load them at runtime.
I can't load them at design time.
If I try to add new components, VB crashes.
So I can't use the Load() function.
Any more ideas?

What post #3 describes is a method for adding them at runtime. I've attached a demo.

[yosef_mreh]

you have already load the opject so y u try to load it again?
ydont u work with operator
for example (i)
and load the shockwave(i) using "FOR"

[Osimonbinladen]

I can't load them at design time.

Ok, now as I said earlier the Load() function doesn't work for me.
I can't initially have one on the form, I need to do everything at runtime.
Here is an example from another application I made:

Dim WithEvents wsSend As Winsock

Private Sub Form_Load()
    Set wsSend = New Winsock
    wsSend.Protocol = sckUDPProtocol
    wsSend.LocalPort = 1233
    wsSend.RemoteHost = "255.255.255.255"
    wsSend.RemotePort = 1234
    wsSend.Bind
End Sub

See what I am aiming for now?
In stead of adding them as components I add them as a reference.
Has anybody done this before?

[Arthur000]

try AxShockwaveFlashObjects.AxShockwaveFlash. It always works.

Cheers,

[Max187Boucher]

Private flash As Object

Private Sub Form_Load()
Set flash = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash.10", "flash")
'or
'Set flash = CreateObject("AxShockwaveFlashObjects.AxShockwaveFlash")
End Sub

Cannot test i am not on pc right now