¿Usar VB para crear el reproductor swf más simple?

Agregue un formulario, un botón, un control ShockwaveFlash1 y un control CommonDialog1. Copie el código para completar esta operación Private Sub Command1_Click()

'Establezca el filtro.

CommonDialog1. Filter = "Todos los archivos (*. *)|*.SWF"

'Especifique el filtro predeterminado.

CommonDialog1.FilterIndex = 2

'Mostrar el abrir cuadro de diálogo.

CommonDialog1.ShowOpen

'Llama al proceso de apertura de archivos.