Protected Sub btnAdd_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAdd.Click
Dim ar As New ArrayList
If Not ViewState("Str") Is Nothing Then
ar = ViewState("Str")
End If
ar.Add(TextBox2.Text)
TextBox2.Text = ""
ViewState("Str") = ar
End Sub
Protected Sub btnShow_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnShow.Click
Dim ar As ArrayList = ViewState("Str")
For Each Str As String In ar.ToArray
TextBox1.Text &= Str & vbCrLf
Next
End Sub