VB Code:
Dim rptTicket As New Ticket()
Dim txtObject As TextObject
If TypeOf (rptTicket.ReportDefinition.ReportObjects.Item("txtTickets")) Is TextObject Then
txtObject = rptTicket.ReportDefinition.ReportObjects.Item("txtTickets")
MsgBox(txtObject.Text)
'txtObject.Text="Cool. Isn't it."
End If
'MsgBox(rptTicket.DataDefinition.FormulaFields.Item("AgentCompany").Text())