Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
rpt.Load(Application.StartupPath & "\Report\rptCalculat.rpt")
rpt.Refresh()
Dim frmReport As New frmReport
frmReport.ShowDialog()
End Sub