Private Sub Print_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Print.Click
        Dim myReport As New CustomReportClass
        myReport.DataDefinition.FormulaFields("initial") = DateTimePicker1.Text
        myReport.DataDefinition.FormulaFields("final") = DateTimePicker2.Text
        myCrystalReportViewer.ReportSource = myReport
    End Sub
End Class