Published in: VB.NET
URL: http://www.ondotnet.com/pub/a/dotnet/2002/11/11/singleton.html
Public Class ClassName Private Shared objClassName As ClassName Private Shared blnClassAlreadyCreated As Boolean = False Private Sub New() End Sub Public Shared Function setupClass() As ClassName If blnClassAlreadyCreated = False Then objClassName = New ClassName() blnClassAlreadyCreated = True End If Return objClassName End Function End Class
Comments
Subscribe to comments
You need to login to post a comment.

To create a new instance of this object:
Public ClassNameInstance As ClassName = ClassName.setupClass()