Tasarım:

2 Adet Textbox

2 Adet Label

3 Adet Buton

1 Adet SaveFileDialog

Button1: İndirmeyi Başlat

Button2:İndirmeyi Durdur

Button3: Dosyanın İndirelecegi Yer

KODLAR

Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

My.Computer.Network.DownloadFile(TextBox1.Text, TextBox2.Text, "", "", True, "15", False)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

Me.Close()
End Sub             

Private

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

 SaveFileDialog1.ShowDialog()

TextBox2.Text = SaveFileDialog1.FileName

End Sub

Projeyi Geliştirmek ve Görsel Tasarıyı Hazırlamak Size Kalmış...