Hola:
Encontre algo por ahi, espero que te funcione...
Desde las aplicaciones de Visual Basic se pueden visualizar vídeos AVI haciendo uso del MCI (Multimedia Control Interface). Sólo es necesario enviar un par de órdenes MCI como en el siguiente ejemplo:
Private Declare Function mciSendString Lib "mmsystem" _
(ByVal strCommand As String, ByVal strReturn As String, _
ByVal iReturnLength As Integer, ByVal hCallback As Integer)
Sub ReproducirAVI()
Dim Resultado as Long
Resultado = mciSendString("Open MiAvi.avi type AVIVideo _
Alias Video", "",0,0)
Resultado = mciSendString("Play Video FullScreen","",0,0)
Resultado = mciSendString("Close Video","",0,0)
End Sub
Avisas como te fue;
Saludos