VB hace un pequeño programa simple

Opción explícita

Sub privado Form_Load()

ShockwaveFlash1.Movie = "D:\wwwroot\KuFang\images\1.swf"

ShockwaveFlash1.Menu = False

ShockwaveFlash1.Playing = True

Fin Sub

Private Sub Timer1_Timer()

Fin

End Sub

Cree un formulario sin bordes, copie el código anterior y estará bien

Después de que se le envió el archivo del proyecto, se eliminó. la necesidad de modificar la ruta