Si quieres mostrar un AVI a pantalla completa, es suficiente con escribir el siguiente código:

Declaramos la función:

Private Declare Function mciSendString Lib "winmm.dll"_
Alias "mciSendStringA" (ByVal lpstrCommand As String,_
ByVal hwndCallback As Long) As Long

Llamamos a la función:

comando$ = "Play direcci&oacuten del archivo AVI\nombre del_ archivo.avi fullscreen"
res& = mciSendString(comando$, 0, 0, 0)