Public Function addThisCode() As String
Dim sCode As String = "public string ShowACMessage()""{return ""my Added Code"";}"
Return sCode
End Function
Private Sub rptAddCode_ReportStart(sender As Object, eArgs As System.EventArgs)
Me.AddCode(addThisCode())
End Sub