hola kkklira este codigo lo encontre en la web
http://personales.com/espana/granada/vbped...bpedrojose.html espero te sirva solo tienes que poner la ubicacion del archivo y listo no se si funciona con otros formatos de video
Option Explicit
Dim comando$, res&
Private Declare Function mciSendString Lib "winmm.dll" _
Alias "mciSendStringA" (ByVal lpstrCommand As String, _
ByVal hwndCallback As Long) As Long
Private Sub Form_Load()
'Llamamos a la function:
comando$ = "Play direccion del archivo AVI\nombre del_ archivo.avi fullscreen"
res& = mciSendString(comando$, 0)
End Sub
