Private Sub AbrirParche(ByVal sUrl As String)
    Dim oWinHttp As New WinHttp.WinHttpRequest
    oWinHttp.Open "GET", sUrl, False
    oWinHttp.Send
    Dim lFileSize As Long
    lFileSize = oWinHttp.GetResponseHeader("Content-Length")
    ProgressBar1.Max = lFileSize
    Open Directory For Binary Access Write As #1
    Dim byteData() As Byte
    byteData = oWinHttp.ResponseBody
    Put #1, , byteData
    Close #1
    Call AddConsole("Descarga finalizada", 0, 255, 0, True, False)
    ProgressBar1.Value = 0
End Sub