[Core]

Take a look at this tutorial. It is targeting C#, but it is going to be fairly easy to port it to VB.NET.

[Spiralz]

You could just use the My.Computer.Network.DownloadFile method and set ShowUI to true, which will show a window with a ProgressBar while the file downloads.

Function DownloadFile(ByRef URL As String, ByRef DestinationPath As String)

My.Computer.Network.DownloadFile(URL, DestinationPath, vbNullString, vbNullString, True, 5000, True)

End Function

It's not exactly the best looking UI, however.

This post has been edited by Spiralz: 06 September 2009 - 07:03 AM

[danny_kay1710]

There is an open source IDE called SharpDevelop which can convert code directly from C# to VB.NET. It's not fool proof but it may help you with this.

http://www.icsharpco.../OpenSource/SD/

[Core]

This is how the event declaration looks like:

		Dim webClient As New WebClient()
		AddHandler webClient.DownloadProgressChanged, AddressOf client_ProgressChanged
		AddHandler webClient.DownloadFileCompleted, AddressOf client_DownloadFileCompleted
		webClient.DownloadFileAsync(New Uri(URL), DestinationPath)

The actual event handlers look like this:

Public Sub client_ProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
		Dim bytesIn As Double = Double.Parse(e.BytesReceived.ToString())
		Dim totalBytes As Double = Double.Parse(e.TotalBytesToReceive.ToString())
		Dim percentage As Double = bytesIn / totalBytes * 100
		ProgressBar.Value = Integer.Parse(Math.Truncate(percentage).ToString())
	End Sub

	Public Sub client_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadDataCompletedEventArgs)

	End Sub

Don't forget to declare the URL and DestinationPath variables.

[Globin]

I've did a small download manager with the C# targeted code adapted to VBNET in #Develop.
It has a listbox to list downloads
2 labels(Source URL, Destiny file)
2 Textboxes(Enter source & destiny)
2 buttons(Start, Browse File)
And ProgressBar, obviosly.

Imports System.Net
Imports System.ComponentModel

Partial Public Class MainForm

    Public Sub New()
        ' The Me.InitializeComponent call is required for Windows Forms designer support.
        Me.InitializeComponent()

        '
        ' TODO : Add constructor code after InitializeComponents
        '
    End Sub

    Sub Button2Click(ByVal sender As Object, ByVal e As EventArgs)
        textBox1.Enabled = False
        textBox2.Enabled = False
        button1.Enabled = False
        button2.Enabled = False
        Dim s As New WebClient
        AddHandler s.DownloadProgressChanged, AddressOf pC
        AddHandler s.DownloadFileCompleted, AddressOf pC2
        s.DownloadFileAsync(New Uri(textBox1.Text), textBox2.Text)
    End Sub
    Sub pC(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        progressBar1.Value = e.ProgressPercentage
    End Sub
    Sub pC2(ByVal sender As Object, ByVal e As AsyncCompletedEventArgs)
        MsgBox("Complete")
        textBox1.Enabled = True
        textBox2.Enabled = True
        button1.Enabled = True
        button2.Enabled = True
        listBox1.Items.Add(textBox2.Text)
    End Sub
	
	Sub Button1Click(sender As Object, e As EventArgs)
		Dim s As New SaveFileDialog
		If s.ShowDialog = vbOK Then
			textBox2.Text = s.FileName
		End If
	End Sub
End Class