Flash Player (FLV) en Visual Basic 6

Esta es una tutorial para poder incrustar videos de youtube en aplicaciones visual basic sirve tanto para visual 6 como para visual .net aunque a mi en .net no me funcionó del todo bien. Lo primero es conseguir un reproductor de flv, yo particularmente utilice el JW FLV Player en la versión 2.8. El software es gratuito para su uso no-comercial por lo que les recomiendo que visiten la página. Si ustedes ya tienen uno que usen en sus web pueden hacer uso ya se van a dar cuenta cuando vean el código. Para bajar el JW Player les dejo el siguiente link: http://www.jeroenwijering.com/upload/mediaplayer.zip Una vez que desempaquetaron el archivo necesario (player.swf) lo deben copiar a la carpeta de su proyecto. Lo que también deberían conseguir sería algunos videos en formato FLV para hacer las pruebas. Esto es fácilmente realizable utilizando el plug-in FAST VIDEO DOWNLOAD para firefox. https://addons.mozilla.org/en-US/firefox/addon/3590 MANOS A LA OBRA: Lo primero que deben hacer es una referencia al control ShockWave Flash en el proyecto Cuidado que hay 2, fijense que enlace a Flash9.ocx Dibujamos el control sobre el formulario y le asignamos un tamaño a nuestro gusto, luego el reproductor se adaptará a ese tamaño Ahora añadimos una referencia a los common dialog. y añadimos un boton abrir. Private Sub Command1_Click() On Local Error GoTo saleOpen With cmdDlg .Filter = "Archivos FLV |*.flv;" .DialogTitle = "Abrir Archivo FLV" .CancelError = True .ShowOpen call Reproducir(.FileName) End With saleOpen: End Sub El siguiente código es el que hace la magia Private Sub Reproducir(sFlvFile as string) Dim sFlashVars As String Dim sPlayer As String '*** VALIDO EXISTA EL REPRODUCTOR ************** sPlayer = App.Path & "\" & "player.swf" If Dir(sPlayer, vbArchive) = "" Then Exit Sub sFlashVars = "" sFlashVars = sFlashVars & "&autostart=true" sFlashVars = sFlashVars & "&stretching=fill" sFlashVars = sFlashVars & "&image=player.jpg" sFlashVars = sFlashVars & "&file=" & sFlvFile With swf .Stop .Visible = True .AllowFullScreen = "false" .AllowScriptAccess = "always" .WMode = "opaque" .Movie = sPlayer .FlashVars = sFlashVars .Play End With End Sub Bueno espero les sea util