Public Class MaClasseSingleton
Private Shared _MaClasseSingleton As MaClasseSingleton
' GetInstance permet de récupérer une instance unique de "MaClasseSingleton"
Public Shared Function GetInstance() As MaClasseSingleton
If _MaClasseSingleton Is Nothing Then
_MaClasseSingleton = New MaClasseSingleton
End If
Return _MaClasseSingleton
End Function
Private Sub New()
End Sub
End Class