RE:reproducir video en VB
aca tenes algo para ir viendo, debes colocar el componente de VB MCI32.ocx creo que se llama asi, es el control multimedia de VB
esto lleva un form, ese control con la propiedad visible en false y un boton
coloca en el path que corresponda a tu maquina los archivos .AVI de video
codigo para el boton
Private Sub Command1_Click()
' Set properties needed by MCI to open.
Form1.MMControl1.Notify = False
Form1.MMControl1.Wait = False
Form1.MMControl1.Shareable = False
Form1.MMControl1.DeviceType = "AVIvideo"
' aca coloca el path a tu archivo .AVI
' Form1.MMControl1.filename = "C:\Archivos de programa\DevStudio\VB\Graphics\AVIs\count24.avi" '"\borra.AVI"
Form1.MMControl1.filename = App.Path & "\count24.avi"
'Form1.MMControl1.filename = "C:\Archivos de programa\DevStudio\VB\vbonline\media\A_PG14.AVI"
' Open the MCI AVI device.
Form1.MMControl1.Command = "Open"
Form1.MMControl1.Command = "Prev" ' si el video lo cierro en la ventana que aparece, esto lo abre desde el principio
Form1.MMControl1.Command = "Play"
'Stop
' cambio el tipo
' Form1.MMControl1.DeviceType = "WaveAudio"
'' Form1.MMControl1.filename = App.Path & "\recycle.wav"
' Form1.MMControl1.Command = "Open"
' Form1.MMControl1.Command = "Play"
' cierro la ventana
End Sub
codigo en la descarga del form
Private Sub Form_Unload(Cancel As Integer)
MMControl1.Command = "Close"
End Sub
espero te sirva de algo
suerte