Dim serverPath = "http://www.domain.com/img.png";
Dim strFileName As String = "img.png"
Dim saveFileDlg As New SaveFileDialog()
saveFileDlg.Filter = "All files (*.*)|*.*"
saveFileDlg.FilterIndex = 1
saveFileDlg.FileName = strFileName
saveFileDlg.RestoreDirectory = True
If saveFileDlg.ShowDialog() = DialogResult.OK Then
Dim Client As New WebClient
Client.DownloadFile(serverPath, saveFileDlg.FileName)
Client.Dispose()
MessageBox.Show("File has been saved!", "Save File")
End If