Private Class ThisClass
#Region " SINGLETON "
    Private Shared MyInstance As ThisClass
    Private Shared _Lock As New Object
    Public Shared ReadOnly Property Instance() As ThisClass
        Get
            If MyInstance Is Nothing Then
                SyncLock _Lock
                    If (MyInstance Is Nothing) Then MyInstance = New ThisClass
                End SyncLock
            End If
            Return MyInstance
        End Get
    End Property
#End Region
End Class