Listing 1: Code That Loads the Label and Checked List Box

Imports System
Imports System.IO
Imports Microsoft.Reporting.WinForms
Imports System.Data.SqlClient

Public Class Form1
Private reportParameterName As String
Private Sub Form1_Load(ByVal sender As System.Object, _
  ByVal e As System.EventArgs) Handles MyBase.Load
' BEGIN CALLOUT A
  ReportViewer1.ProcessingMode = ProcessingMode.Local
  ReportViewer1.LocalReport.ReportPath = "EmployeeTime.rdl"
' END CALLOUT A
  Dim reportParameters As ReportParameterInfoCollection
  reportParameters = ReportViewer1.LocalReport.GetParameters()
  Dim jobTypeParameter As ReportParameterInfo
  jobTypeParameter = reportParameters(0)
  reportParameterName = jobTypeParameter.Name 
  If Not jobTypeParameter.ValidValues Is Nothing Then
    Dim validValue As ValidValue
    For Each validValue In jobTypeParameter.ValidValues
      clbReportParameter.Items.Add(validValue.Label)
    Next
  End If
  lblReportParameter.Text = jobTypeParameter.Prompt
End Sub