<%@ page language="vb" runat="server" %>
Public Class User
Private Shared _Count = 0
Public ReadOnly Shared Property Count As Integer
Get
Return _Count
End Get
End Property
Sub New()
_Count += 1
End Sub
End Class
Sub Page_Load()
Response.Write("User.Count = " & User.Count)
Response.Write("
Creating User Alex.")
Dim Alex As New User()
Response.Write("
Alex.Count = " & Alex.Count)
Response.Write("
Creating User Rob.")
Dim Rob As New User()
Response.Write("
Rob.Count = " & Rob.Count)
Response.Write("
Creating User Jake.")
Dim Jake As New User()
Response.Write("
Jake.Count = " & Jake.Count)
Response.Write("
User.Count = " & User.Count)
End Sub