01.<%@ Page Language="VB" %>
02.<script runat="server">
03.
04. Sub Page_Load(sender As Object, e As EventArgs)
05. IF NOT Page.IsPostBack() Then
06. Me.Hidden1.Value = "Welcome to www.ThaiCreate.Com"
07. Me.lblText1.Text = "Version 2009"
08. End IF
09. End Sub
10.
11.
12. Sub Button1_OnClick(sender As Object, e As EventArgs)
13. Me.lblText1.Text = Me.Hidden1.Value
14. End Sub
15.
16.</script>
17.<html>
18.<head>
19.</head>
20.<body>
21. <form runat="server">
22. <input id="Hidden1" type="hidden" runat="server">
23. <input id="Button1" type="button" OnServerClick="Button1_OnClick" value="Button" runat="server" />
24. <hr />
25. <asp:Label id="lblText1" runat="server"></asp:Label>
26. </form>
27.</body>
28.</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
