Lo tuve que declarar de la sig manera
Código:
Dim Pelicula As New ShockwaveFlashObjects.ShockwaveFlash
Pelicula.Movie = App.Path & "\flash\Estruc_Agregar.swf"
Pelicula.Top = 3960
Pelicula.Height = 375
Pelicula.Left = 7440
Pelicula.Width = 1095
Pero al darle las propiedades de top, height etc me marca que el objeto no admite esa propiedad