Ahora si funciona perfectamente, gracias por todo

Los métodos del namespace My son útiles y sencillos ...pero limitados, trata de evitarlos.

Teniendo el web-proxy:

Dim proxy As New WebProxy("proxydeprueba", 3128)
proxy.Credentials = New NetworkCredential("yomismo", "mipass,")

Puedes utilizar la class webclient para descargar el archivo de forma sincrónica o asíncrona para utilizar sus eventos de reporte de progreso:

Using wc As New WebClient
    wc.Proxy = proxy
    wc.DownloadFile("https://foro.elhacker.net/Themes/converted/selogo.jpg", "C:\selogo.jpg")
End Using

O también la class WebRequest / HttpWebRequest:

Dim request As WebRequest = WebRequest.Create("https://foro.elhacker.net/Themes/converted/selogo.jpg")
 
With request
    .Proxy = proxy
End With
 
Using sr As Stream = (request.GetResponse.GetResponseStream)
 
    Using fs As FileStream = File.Create("c:\selogo.jpg")
        sr.CopyTo(fs)
    End Using
 
End Using

También puedes realizar una copia del stream por bloques si prefieres reportar el progreso de la copia en archivos grandes.

---

Código fuente sacado de mi API ElektroKit:

• 

Como puedes ver, con el siguiente método se intenta evitar o automatizar la asignación de un nombre de archivo de destino, aunque no es un algoritmo perfecto.
El código original utiliza una lista de MimeTypes para una mejor detección del tipo o extensión del archivo de destino, pero la he eliminado para reducir el código que mostrarte aquí en el foro, y le añadí el parámetro del proxy.
Si descomentas las lineas de variables comentadas puedes extender el método para reportar el progreso mediante eventos.

Ejemplo de uso:

DownloadFile(proxy, "http://download.thinkbroadband.com/5MB.zip", "C:\")

Snippet:

Public Shared Sub DownloadFile(ByVal proxy As WebProxy,
                               ByVal url As String,
                               ByVal dirpath As String)
 
    Dim req As HttpWebRequest = DirectCast(HttpWebRequest.Create(url), HttpWebRequest)
    req.Proxy = proxy
 
    Using resp As WebResponse = req.GetResponse
 
        Dim filename As String = ""
 
        Try
            filename = Path.GetFileName(resp.ResponseUri.AbsoluteUri)
 
        Catch ex As Exception
            filename = String.Format("{0}.{1}", Path.GetFileNameWithoutExtension(Path.GetRandomFileName), "file")
 
        Finally
            If Not Path.HasExtension(filename) Then
                filename.Insert(filename.Length, ".file")
            End If
 
        End Try
 
        Dim buffer As Byte() = New Byte(1023) {}
        Dim bytesRead As Integer
        ' Dim totalBytes As Long
        ' Dim receivedBytes As Long
 
        Using fs As New FileStream(Path.Combine(dirpath, filename), FileMode.CreateNew, FileAccess.ReadWrite, FileShare.Read)
 
            Using data As Stream = resp.GetResponseStream
 
                ' totalBytes = data.Length
                bytesRead = data.Read(buffer, 0, buffer.Length)
 
                While (bytesRead > 0)
                    fs.Write(buffer, 0, bytesRead)
                    ' receivedBytes += bytesRead
                    bytesRead = data.Read(buffer, 0, buffer.Length)
                End While
 
            End Using
 
        End Using
 
    End Using
 
End Sub

Saludos!

Llego bastante tarde a responder (es lo que sucede si se publica en la sección equivocada, jeje), pero, ¿ya solucionaste el problema?, como veo que no recibiste respuesta te dejo alguna ayuda por si acaso...

Puedes hacerlo al menos de dos formas, la primera sería invocando el verbo de impresión del archivo (la constante "print"), con la class Process:

Using p As New Process
    p.StartInfo.FileName = "C:\Imagen.png"
    p.StartInfo.Verb = "Print"
    p.Start()
End Using

Y la segunda manera sería utilizar la class PrintDocument para dibujar la imagen en el evento PrintPage, pero este modo en mi opinión es para tareas más sofisticadas que una simple impresión de un archivo multimedia.

Saludos

Tienes razón, un fallo tonto. La manera correcta de obtener el índice de la columna sería la siguiente:

Dim columnindex As Integer = hitTest.Item.SubItems.IndexOf(hitTest.SubItem)

Con eso ya puedes solucionar el problema.

Por cierto, de nada.

Saludos!

'InvalidArgument=El valor de '4' no es válido para 'index'.
'Nombre del parámetro: index
.Width = lv.Columns(hitTest.Item.Index).Width
 

Esa es una limitación del control ListView, por lo tanto es algo que debes implementar por ti mismo.

Te he escrito el siguiente ejemplo funcional (para editar una celda o subitem haz doble-click):

    Friend WithEvents TextBoxLvItem As TextBox
    Private currentItem As ListViewSubItem
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
        Me.TextBoxLvItem = New TextBox With {.Visible = False}
        Me.Controls.Add(Me.TextBoxLvItem)
 
    End Sub
 
    Private Sub ListView1_MouseClick(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles ListView1.MouseClick
 
        Me.TextBoxLvItem.Hide()
 
    End Sub
 
    Private Sub ListView1_MouseDoubleClick(ByVal sender As Object, ByVal e As MouseEventArgs) _
    Handles ListView1.MouseDoubleClick
 
        Dim lv As ListView = DirectCast(sender, ListView)
        Dim hitTest As ListViewHitTestInfo = lv.HitTest(e.X, e.Y)
        Me.currentItem = hitTest.SubItem
 
        With Me.TextBoxLvItem
            .Width = lv.Columns(hitTest.Item.Index).Width
            .Left = (lv.Left + hitTest.SubItem.Bounds.Left + 3)
            .Top = (lv.Top + hitTest.SubItem.Bounds.Top)
            .Text = hitTest.SubItem.Text
            .Show()
            .Focus()
            .SelectAll()
        End With
 
        lv.SendToBack()
 
    End Sub
 
    Private Sub TextBoxLvItem_KeyUp(ByVal sender As Object, ByVal e As KeyEventArgs) _
    Handles TextBoxLvItem.KeyUp
 
        Select Case e.KeyData
 
            Case Keys.Return ' Guardar el texto.
                currentItem.Text = DirectCast(sender, TextBox).Text
                DirectCast(sender, TextBox).Hide()
 
            Case Keys.Escape ' No guardar el texto.
                DirectCast(sender, TextBox).Hide()
 
            Case Else
                '...
 
        End Select
 
    End Sub
 

PD: No actives el LabelEdit, no es necesario con el código que mostré.

Saludos

Private ReadOnly title As String = "Espere"
Friend WithEvents TimerEfect As Global.System.Windows.Forms.Timer
 
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
 
    Me.Text = Me.title
    Me.TimerEfect = New Global.System.Windows.Forms.Timer With {.Enabled = True, .Interval = 1000}
 
End Sub
 
Private Sub TimerEfect_Tick(ByVal sender As Object, ByVal e As EventArgs) Handles TimerEfect.Tick
 
    If Me.Text.EndsWith("...") Then
        Me.Text = Me.title
 
    Else
        Me.Text &= "."
 
    End If
 
End Sub
 
Private Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
 
    Task.Factory.StartNew(
        Sub()
            Dim t As Task = RunWait("calc.exe", ProcessWindowStyle.Normal)
            t.Start()
            t.Wait()
            MessageBox.Show("calc.exe has exited.")
 
            t = RunWait("mspaint.exe", ProcessWindowStyle.Normal)
            t.Start()
            t.Wait()
            MessageBox.Show("mspaint.exe has exited.")
        End Sub)
 
End Sub
 
Private Function RunWait(ByVal fullPathFile As String, ByVal windowStyle As ProcessWindowStyle) As Task
 
    Dim processTask As Action =
        Sub()
            Using p As New Process
                p.StartInfo.FileName = fullPathFile
                p.StartInfo.WindowStyle = windowStyle
                p.Start()
                p.WaitForExit()
            End Using
        End Sub
 
    Return New Task(processTask)
 
End Function

Saludos