源代码如下：

窗体中的代码：

Option Explicit

''''开始

Private Sub Command1_Click()

   On Error Resume Next

   With myThreadleft

        .Initialize AddressOf Fillleft            ''''传递过程地址给线程

        .ThreadEnabled = True

   End With

   With myThreadright

        .Initialize AddressOf Fillright

        .ThreadEnabled = True

   End With

   With myThreadbottom

        .Initialize AddressOf Fillbottom

        .ThreadEnabled = True

   End With

   MsgBox "多线程正在运行...，看看图片框控件的变色效果！", 64, "信息"

   ''''终止线程运行

   Set myThreadleft = Nothing

   Set myThreadright = Nothing

   Set myThreadbottom = Nothing

End Sub

''''结束

Private Sub Command2_Click()

   Unload Me

End Sub

模块中的代码：

Option Explicit

''''时间计数API

Private Declare Function GetTickCount Lib "kernel32" () As Long

''''声明cls_thread类的对象变量

Public myThreadleft As New cls_thread, myThreadright As New cls_thread, myThreadbottom As New cls_thread

Sub Main()

   Load Form1

[1] [2] [3] [4] [5]  下一页