VB Code:
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 Form1_Load()
Last$ = Form1.hWnd & " Style " & &H40000000
ToDo$ = "open C:\Myavi.avi Type avivideo Alias video parent " & Last$
x% = mciSendString(ToDo$, 0&, 0, 0)
x% = mciSendString("put video window at 0 0 210 210", 0&, 0, 0)
x% = mciSendString("play video", 0&, 0, 0) )
End Sub
Private Sub Form_Unload(Cancel As Integer)
x% = mciSendString("close video", 0&, 0, 0)
End Sub