Form1,新建以下标签
Label3.Caption = 线程一:控制台
Label4.Caption = 线程二: Label1.Caption = 0
Label5.Caption = 线程三: Label2.Caption = 0
Command1.Caption = 终止线程
Form1代码:
模块:启动.bas 名称:模块,代码:
类模块:多线程类.cls 名称:多线程类,代码:
类模块:控制台类.cls 名称:控制台类,代码:
完毕!