Dim format as string = "PDF"
Dim fileName as String = "C:\temp\Report_251212.pdf"
Dim reportPath as String = "/Basic Stats/Report"

Public Sub Main()

' Prepare Render arguments
Dim historyID as string = Nothing
Dim deviceInfo as string = Nothing
Dim showHide as string = Nothing
Dim results() as Byte
Dim encoding as string = Nothing
Dim mimeType as string = "application/pdf"
Dim extension as string = "pdf"
Dim warnings() AS Warning = Nothing
Dim reportHistoryParameters() As ParameterValue = Nothing
Dim streamIDs() as string = Nothing

rs.Credentials = System.Net.CredentialCache.DefaultCredentials

Dim parameters(2) As ParameterValue
parameters(0) = New ParameterValue()
parameters(0).Name = "WebsitePrimaryID"
parameters(0).Value = "1"
parameters(1) = New ParameterValue()
parameters(1).Name = "Date"
parameters(1).Value = "12/25/2012"
parameters(2) = New ParameterValue()
parameters(2).Name = "WithPageViews"
parameters(2).Value = "True"
Dim execHeader AS New ExecutionHeader()
Dim rpt AS New ExecutionInfo
rpt = rs.LoadReport(reportPath, Nothing)
rs.SetExecutionParameters(parameters, "en-us")
rs.ExecutionHeaderValue = execHeader
rs.ExecutionHeaderValue.ExecutionID = rpt.ExecutionID
results = rs.Render(format, deviceInfo, extension, mimeType, encoding, warnings, streamIDs)

' Open a file stream and write out the report 
Dim stream As FileStream = File.OpenWrite(fileName)
stream.Write(results, 0, results.Length)
stream.Close()

End Sub