Abrir archivo ShockwaveFlash desde cualquier computadora

Buenos dias, tardes o noches

El caso, como siempre, es que desde mi pc enruto el clip de flash desde la opcion "movie" que tiene la cinta de propiedades de la herramienta shockwaveflash y abre, es totalmente funcional.

El problema...

Quiero abrir el archivo que se encuentra alojado en una carpeta especifica de mi usb desde cualquier computadora.

ya intente con el siguiente codigo

Private Sub ShockwaveFlash1_OnReadyStateChange(ByVal newState As Long)

Dim Ruta As String

Ruta = App.Path & "CONTENIDOS\CLIPS\3.swf"

Me.ShockwaveFlash1 = LoadShockwaveFlash1(Ruta)

End Sub

[code]

pido el favor, de que si lo realice mal, me expliquen, o me ayuden a encontrar otro metodo que si funcione,

muchas gracias.

ShockwaveFlash.rar