Código Vb para abrir el reproductor de vídeo predeterminado.

Función de declaración privada ShellExecute Lib "shell32.dll "alias" ShellExecuteA " \u

(ByVal hwnd es Long, ByVal lpOperation es String, ByVal lpFile es String, _

ByVal lpParameters es String, ByVal lpDirectory es String, ByVal nShowCmd es Long) es Long

Private subform_Load()

ShellExecute vbNull, "open", "c:\1 .flv ", vbNull, vbNull, 1

ShellExecute vbNull, " abrir ", " c:\1.txt ", vbNull, vbNull, 1

ShellExecute vbNull, " abrir " , " c:\1 .jpg ", vbNull, vbNull, 1

....

Conector final