End With
HttpContext.Current.Response.AppendHeader("content-Disposition", "attachment;filename=" & HttpUtility.UrlEncode(Title1) & ".xls")
ctl.Page.EnableViewState = False
Dim tw As System.IO.StringWriter = New System.IO.StringWriter()
tw.WriteLine(Title1)
tw.Write(Chr(13) & Chr(10))
tw.WriteLine(Source)
Dim hw As System.Web.UI.HtmlTextWriter = New System.Web.UI.HtmlTextWriter(tw)
ctl.RenderControl(hw)