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



comando$ = "play c:\mifichero.avi fullscreen"
res& = mciSendString(comando$, 0&, 0, 0&)