Reproductor de video en vb6

[pungados]

estuve buscando en internet como hacer un reproductor de video con vb6 pero no encontre nada...
Lo que queria saber era como hacer la barra que indica el tiempo que transcurre del video, para pausarlo, o para buscar otro.Si alguien me puede ayudar estaria muy agradecido.
Salu2
PD: Gracias a todos los que me ayudaron hoy   

[nhaalclkiemr]

A ver si esto te sirve


Para que aparezca el video en el Form

Código (vb) [Seleccionar] Expandir

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

Private Sub Form_Load()
Dim CmdStr As String
Dim ReturnVal As Long
CmdStr = "play " & Chr(34) & "e:\media\avi\nombre.avi" & Chr(34)
ReturnVal = mciSendString(CmdStr, 0&, 0, 0&)
End Sub

Para pantalla completa

Código (vb) [Seleccionar] Expandir

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

Private Sub Form_Load()
Dim CmdStr As String
Dim ReturnVal As Long
CmdStr = "play " & Chr(34) & "e:\media\avi\nombre.avi" & Chr(34) " fullscreen"
ReturnVal = mciSendString(CmdStr, 0&, 0, 0&)
End Sub

Saludos 

[ranslsad]

Por lo pronto ami no, hay que agregar algun control o algo (supongo que no)
Porke no me abre nada :S
Explica mejor como usarlo o algo..
PD: si, cambie el link del video ^^


Salu2

Ranslsad

[nhaalclkiemr]

No necesita ningun control, solo usa una API, lo que necesitas es "winmm.dll" pero eso pienso que viene en todos los XP...

Corregí arriba un poco el code...prueva ahora a ver si te va...

Saludos