Public Class Singleton
 
    ' Variable zur Speicherung der einzigen Instanz
    Private Shared instance As Singleton = Nothing
 
 
    ' Hilfsvariable für eine sichere Threadsynchronisierung.
    Private Shared ReadOnly mylock As New Object()
 
    ' Konstruktor ist privat, damit die Klasse nur aus sich 
    ' selbst heraus instanziiert werden kann.
    Private Sub New()
        '
    End Sub
 
 
    ' Diese Shared-Methode liefert die einzige Instanz der Klasse zurück.
    Public Shared Function GetInstance() As Singleton
        SyncLock (mylock)
            If instance Is Nothing Then
                instance = New Singleton
            End If
        End SyncLock
 
        Return instance 
    End Function 
  End Class