超级链接自定义控件代码（原创）

Imports System.ComponentModel
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports System

Public Class WebCustomControl1 : Inherits System.Web.UI.Control

    Protected Overrides Sub Render(ByVal output As System.Web.UI.HtmlTextWriter)

        output.AddAttribute(HtmlTextWriterAttribute.Href, "http://www.163.com")
        output.AddAttribute(HtmlTextWriterAttribute.Target, "_blank")
        output.AddStyleAttribute(HtmlTextWriterStyle.FontSize, "100")
        output.AddStyleAttribute(HtmlTextWriterStyle.Color, "Green")
        output.RenderBeginTag(HtmlTextWriterTag.A)
        output.Write("this is a link")
        output.RenderEndTag()

    End Sub

End Class