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

 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