Form1，新建以下标签

Label3.Caption = 线程一：控制台

Label4.Caption = 线程二：  Label1.Caption = 0

Label5.Caption = 线程三：  Label2.Caption = 0

Command1.Caption = 终止线程

Form1代码：

模块：启动.bas 名称：模块，代码：

类模块：多线程类.cls 名称：多线程类，代码：

类模块：控制台类.cls 名称：控制台类，代码：

完毕！