چطور یک پلیر بدون کنترل تمام صفحه بسازم؟

سلام.
من میخوام با وی بی یک مدیاپلیر بسازم که بتونه فایلهای آویavi رو تمام صفحه نشون بده و کنترلش هم نمیخوام.
میشه یک راهنمایی بکنین؟ من میخوام فقط یمک فایل پیشفرض رو باز کنه نه هر فایلی.
( من از وی بی 6 استفاده میکنم)

کد:

---

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

---

دستت طلا خیلی بدرد بخورهد
مرسی