Partial Class HtmlButtonControlDemo_aspx

Inherits System.Web.UI.Page

Protected Sub Page_load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        PageLink.HRef = "http://www.msn.com/"

End Sub

Sub Button1_OnClick(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.ServerClick

        PageLink.HRef = "http://www.ibm.com/"

        span1.InnerHtml = "You chose IBM!"

End Sub

Sub Button2_OnClick(ByVal sender As Object, ByVal e As EventArgs) Handles Button2.ServerClick

        PageLink.HRef = "http://www.mgm.com/"

        span1.InnerHtml = "You chose MGM!"

End Sub

End Class