Para mostrar un AVI a pantalla completa basta con escribir el siguiente código:
Declaramos la function:
Private
Declare Function mciSendString Lib "winmm.dll"_
Alias
"mciSendStringA" (ByVal lpstrCommand As String,_
ByVal
hwndCallback As Long) As Long
Llamamos a la function:
comando$
= "Play dirección del archivo AVI\nombre del_ archivo.avi fullscreen"
res&
= mciSendString(comando$, 0, 0, 0)