有关CreateThread这个Api的问题

Question

模块里面的代码：
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)Public Sub Fill1()
Dim i As Integer
For i = 0 To 255
Form1.Picture1.BackColor = RGB(i, 0, 0)
Form1.Label1.Caption = CStr(i)
Sleep 100
Next i
End SubPublic Sub Fill2()
Dim i As Integer
For i = 0 To 255
Form1.Picture2.BackColor = RGB(0, i, 0)
Form1.Label2.Caption = CStr(i)
Sleep 100
Next i
End SubForm里面的代码：Private Declare Function CreateThread Lib "kernel32" (lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
Dim id1, id2 As Long
Private Sub Command1_Click()id1 = CreateThread(0, 0, AddressOf Module1.Fill1, 0, 0, lpThreadId1)id2 = CreateThread(0, 0, AddressOf Module1.Fill2, 0, 0, lpThreadId2)End Sub
Private Sub Form_Unload(Cancel As Integer)
TerminateThread id1, 0
TerminateThread id2, 0
Unload Me
End Sub为什么运行后form1里面的两个picture控件不能改变颜色，但是i的值是变化的。
如果不用进程的话，picture的颜色却可以改变。
求解释

Answer 1

label里面显示i值是在变化得，那说明进程却是是在运行的，但是就是picture的颜色为什么不会变化，就是纠结于这一点

Answer 2

个人观点：VB搞多线程意义不大，且完全是把简单的问题复杂化的做法。从技术上讲，VB基于COM实现多线程，本身就不能算真正的多线程，且还非常不稳定。
目前为止，我还没有看到一个用VB多线程来开发的成功软件。如果你实在要使用多线程，那你可以考虑购买ThreadFactory来实现。稳定性能保证。

Answer 3

CreateThread是API的多线程专属函数

Answer 4

VB之所以不支持多线程是因为VB依赖运行时库，而运行时库本身不支持多线程。因此即便是做一个加法或者连接两个字符串这样的操作，都不是真正的原子操作，也不能保证线程之间的同步。所以与其折腾这些野路子的东西，不如好好学学别的语言。VB已经非常非常的落后，并且根本不适合用来写当今的应用程序了。