El primer paso es realizar una referencia a un componente COM (Proyecto --> Agregar Referencia --> COM).
Buscar la opcion "Shockwave Flash".

Despues, en el cuadro de herramientas, hacer clic derecho y seleccionar "Elegir Elementos", pestaña
"Componentes COM" y seleccionar "Shockwave Flash Object", Aceptar.
Aparecera en el cuadro de herramientas en la parte "-General" un herramienta llamada "Shockwave Flash Object".
Arrastar, al igual que un boton o caja de texto, hacia el formulario.

Luego de esto, en la parte del codigo, se importa los objetos:

Imports ShockwaveFlashObjects
Imports AxShockwaveFlashObjects

y finalmente se inserta el siguiente codigo:

        Dim flash As New AxShockwaveFlash
        Dim startupSize = New System.Drawing.Size(580, 600)
        Dim startupsize2 = New System.Drawing.Size(100, 100)
        'Start
        flash.BeginInit()
        flash.Location = New Point(450, 0) ' es la posicion del objeto que mostrara el flash
        flash.Name = "Logo"
        flash.TabIndex = 0
        Controls.Add(flash)
        flash.Size = startupsize2 ' tamaño del flash
        flash.EndInit()
        flash.LoadMovie(0, RUTA_LOGO) 'ruta del archivo .swf
        flash.Play()
        FormBorderStyle = 1
        ClientSize = startupSize 'se debe especificar el tamaño de la ventana

eso es todo.