Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.Shared

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, _

    ByVal e As System.EventArgs) Handles Button1.Click

        Dim crp As New CrystalReport1

        CrystalReportViewer1.ReportSource = crp

        CrystalReportViewer1.Refresh()

    End Sub

End Class