Dim rpt As New rptSomeReport
Dim objT As CrystalDecisions.CrystalReports.Engine.TextObject
objT = DirectCast(rpt.GroupHeaderSection1.ReportObjects("AssessMemo1"), CrystalDecisions.CrystalReports.Engine.TextObject)
objT.Text = TextBox1.Text
Here's another,
Code:
Dim rpt As New rptSomeReport
rpt.SummaryInfo.ReportTitle = "whatever you want"