摘要：System.mt.dll，使用社区版开发，仅供学习交流使用。
模块修改代码
Option Explicit
Public Type tPara
ID As Long
Progress As Long
Result As String
End Type
Public Paras As tPara
Public Locker As ThreadLocker
Sub DoTask(ByVal ID As Long)
Dim i As Integer, j As Integer
Dim StrTemp As String
Dim ArrIndex As Integer
'查找数组位置
For i = 1 To UBound(Paras)
If Paras(i).ID = ID Then
ArrIndex = i
End If
Next
StrTemp = ""
For i = 1 To 100
Paras(ArrIndex).Progress = i
For j = 1 To 1000
StrTemp = StrTemp & "123"
Next
Next
'返值
Paras(ArrIndex).Result = ID * 10 + 1
End Sub
窗体修改代码
Private Sub Form_LoadReDim Paras(1)Set Locker = New ThreadLockerSet Thread = New VB6ThreadEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set Thread = NothingSet Locker = NothingEnd SubSystem.mt.dll，使用社区版开发，仅供学习交流使用。
使用本软件风险由用户自行承担，在适用法律允许的最大范围内，对因使用或不能使用本软件所产生的损害及风险，包括但不限于直接或间接的个人损害、商业盈利的丧失、贸易中断、商业信息的丢失或任何其它经济损失，以及任何不可抗力带来的损失，我方不承担任何责任。
如本文不适合发表请通知删除。
来源：秀丽教育
