Comments by Rangga Stephen (Top 1 by date)

Imports System.Net

Public Class _Default1
Protected Sub bttnpdf_Click(sender As Object, e As EventArgs)
Dim FilePath As String = Server.MapPath("Sample.pdf")
Dim User As New WebClient()
Dim FileBuffer As [Byte]() = User.DownloadData(FilePath)
If not (FileBuffer is nothing) Then
Response.ContentType = "application/pdf"
Response.AddHeader("content-length", FileBuffer.Length.ToString())
Response.BinaryWrite(FileBuffer)
End If
End Sub
End Class