چگونگی پخش فیلم بدون برنامه windows media player

با سلام
لطفا مرا در مورد اینکه در ویژوال بیسک چگونه میتوان بدون کامپوننت ویندوز مدیا پلیر فایل تصویری را اجرا کرد راهنمايي كنيد.
فوري فوري فوريييييييييييييييييييييي ييييييييييييييييييييييييي يي

با دستورات mci می توانی
-------------------------------
باید api نیاز داره !

با تشكر از شما كه به سوال من پاسخ داديد ولي خواهش ميكنم كه api مورد نياز را به من معرفي كنيد.

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

Private Sub Form_Click()
Dim Ret As Long, A$, x As Integer, y As Integer
x = 0
y = 0
A$ = "C:\Windows\Movie.avi" 'Change the path and filename
Ret = mciSendString("stop movie", 0&, 128, 0)
Ret = mciSendString("close movie", 0&, 128, 0)
Ret = mciSendString("open AVIvideo!" & A$ & " alias movie parent " & Form1.hWnd & " style child", 0&, 128, 0)
Ret = mciSendString("put movie window client at " & x & " " & y & " 0 0", 0&, 128, 0)
Ret = mciSendString("play movie", 0&, 128, 0)
End Sub

Private Sub Form_Terminate()
Dim Ret As Long
Ret = mciSendString("close all", 0&, 128, 0)
End Sub