Hola, yo lo probé con este Id de clase "ShockwaveFlash.ShockwaveFlash.1"
...y me funcionó perfecto:
Código:
Private WithEvents obj As ShockwaveFlash
Private Sub Form_Load()
Set obj = Me.Controls.Add("ShockwaveFlash.ShockwaveFlash.1", "sh1")
obj.Visible = True
obj.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
'obj.LoadMovie
' etc....
End Sub
Nota: Tenés que ir a opciones de proyecto, Solapa "Generar", y marcar la opción : "Quitar información de controles Activex no usados"
saludos
---------