Cómo abrir el reproductor para reproducir películas en VB

Declaración privada función shell ejecutar Lib " shell 32 . dll " Alias ​​​​_

" ShellExecuteA "

(ByVal hWnd es Long, ByVal lpOperation es String, _

ByVal lpFile en forma de cadena, _

ByVal lpParameters en forma de cadena, _

ByVal lpDirectory en forma de cadena, _

ByVal nShowCmd misma longitud) misma longitud

const SW _ show normal As Long = 1

Const SW_HIDE As Long = 0

Sub privado Form_Click( )

Llamar a ShellExecute(Me.hWnd, "Open", "d:\2.txt", vbNullString, _

App.Path, SW_SHOWNORMAL)

Conector final