addressofexpression1.vb

来自「大名鼎鼎的mono是.NET平台的跨平台（支持linux」· VB 代码 · 共 15 行

Imports System.Threading

Class AddressOfExpression1
    Private Sub StartThread()
        Dim m_Queue As Object
        Dim m_Thread As Thread
        SyncLock m_Queue
            If m_Thread Is Nothing Then
                m_Thread = New Threading.Thread(AddressOf StartThread)
                m_Thread.Start()
            End If
        End SyncLock
    End Sub
End Class