摘要：System.mt.dll，使用社区版开发，仅供学习交流使用。

模块里面进度处理

Option Explicit

Public Type tPara

ID As Long

Progress As Long

Result As String

End Type

Public Paras As tPara

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

'返值

Paras(ArrIndex).Result = ID * 10 + 1

End Sub

窗体修改代码

运行结果

(线程执行过程显示进度)

System.mt.dll，使用社区版开发，仅供学习交流使用。

使用本软件风险由用户自行承担，在适用法律允许的最大范围内，对因使用或不能使用本软件所产生的损害及风险，包括但不限于直接或间接的个人损害、商业盈利的丧失、贸易中断、商业信息的丢失或任何其它经济损失，以及任何不可抗力带来的损失，我方不承担任何责任。

如本文不适合发表请通知删除。

来源：肖潇看科技