Private Sub Button1_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles Button1.Click
Count += 1
Me.Label1.Text = Me.Count
End Sub
Private Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) _
Handles MyBase.Load
Me.Label1.Text = Me.Count
End Sub
Private Property Count() As Integer
Get
If viewstate.Item("cnt") Is Nothing Then
Return 0
Else
Return viewstate.Item("cnt")
End If
End Get
Set(ByVal Value As Integer)
viewstate.Item("cnt") = Value
End Set
End Property