VB创建多线程应用程序(二)

源代码如下：
窗体中的代码：
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
Form1.Show
End Sub

Public Sub Fillleft()
Static Bkgcolor As Long
Dim LongTick As Long, Longcounter As Long
On Error Resume Next
For Longcounter = 0 To 3000
DoEvents
Bkgcolor = Longcounter Mod 256
Form1.Picture1.BackColor = RGB(Bkgcolor, 0, 0)
LongTick = GetTickCount
While GetTickCount - LongTick < 10 ’延时10毫秒,下同
Wend
Next
Set myThreadleft = Nothing ’如果循环结束则终止当前线程运行，下同
End Sub

Public Sub Fillright()
Static Bkgcolor As Long
Dim LongTickValue As Long, Longcounter As Long
On Error Resume Next
For Longcounter = 0 To 3000
DoEvents
Bkgcolor = Longcounter Mod 256
Form1.Picture2.BackColor = RGB(0, Bkgcolor, 0)