VB中的多線程

Dim g_ReceiveThread為System。穿線，穿線

創建:

g_ReceiveThread =新系統。threading . Thread(address of receive proc)

開始:

g_ReceiveThread。開始()

結束:

dimwaitstart as long = my . computer . clock . tick count+1000 '超時。

While (g_ReceiveThread。ThreadState & lt& gt系統。線程.線程狀態.停止)

如果我的。Computer . Clock.TickCount & gt=然後開始等待

g_ReceiveThread。中止()

如果…就會結束

申請。DoEvents()

結束時間