gistfile1.txt

    Public Function createBtn(ByVal Handler As EventHandler, Optional ByVal text As String = "Ändra", Optional ByVal link As String = "main.aspx")
        Dim editbtn As New LinkButton
        editbtn.Attributes.Add("rel", link)
        editbtn.Attributes.Add("class", "Btn")
        editbtn.Attributes.CssStyle.Add("margin-left", "10px")
        editbtn.ID = "editBtn"
        Dim icon As New Image
        icon.ImageUrl = "Images/edit.png"
        icon.CssClass = "icon"
        editbtn.Controls.Add(icon)
        Dim Btntext As New HtmlGenericControl("span")
        Btntext.InnerText = text
        Btntext.ID = "text"
        editbtn.Controls.Add(Btntext)
        AddHandler editbtn.Click, Handler
        Return editbtn
    End Function