[rmnr]

كود :

Try
   progressValueLabel.ResetText()
   remainingValueLabel.ResetText()
   downloadProgressBar.Value = downloadProgressBar.Minimum

   ScreamUpdate = New List(Of update)({New update With {.DataSize = 0, .Time = Date.Now}})

   Dim url As String = "http://" & TextBox1.Text & ":" & TextBox3.Text & "/get.php?username=" & TextBox2.Text & "&password=" & TextBox4.Text & "&type=m3u&output=ts"
   Dim filename As String = Application.StartupPath & "\Extreme.m3u"
   downloader.DownloadFileAsync(New Uri(url), filename, True) ' You can use link Example: http://www.mysite.com/File.exe  (Link Direct...)

Catch ex As Exception
   MessageBox.Show(ex.ToString(), "Download Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
End Try