Dim p As New Diagnostics.Process, strInput As String, strOuput As String
        p.StartInfo.RedirectStandardError = True
        strInput = fichero0
        strOuput = "c:\inetpub\wwwroot\ejemplo.avi"
        p.StartInfo.FileName = "c:\inetpub\wwwroot\ejemplo.mp4"
        p.StartInfo.UseShellExecute = False
        p.StartInfo.Arguments = String.Format("-i ""{0}"" -b 1500k -vcodec libx264  -s 640x360 ""{1}""", strInput, strOuput)
        p.Start()