'使用多线程 改造循环 Command2 等效 Command1过程 哪位大神出手帮忙修改一下
Private Sub Command1_Click()
    Dim b(100, 1000)
    Dim i As Long, j As Long
    For i = 1 To 100
        For j = 1 To 1000
            b(i, j) = i * j
        Next
    Next
End Sub

Private Sub Command2_Click()
    Dim b(100, 1000)
    Dim i As Long, j As Long
    For i = 1 To 100
        '创建多线程 xh i,1000
    Next
    If 所有线程执行完毕 Then
    MsgBox "所有线程执行完毕"
    Else
     MsgBox "有未执行完毕线程"
    End If
End Sub
Function xh(ii As Long, jj As Long) As Long
    For ii = 1 To jj
        b(ii, jj) = ii * jj
    Next
End Function
线程之间无联系 这个应用比较简单实际 没弄过多线程搞不定 求大神出手

不知道是要真的并发执行还是象打飞机游戏一样，用户感觉是同时进行。
VB6没有多线程的处理机制，如果一定要试可以了解CreateThread这个API，我也没用过。据说不安全，很容易严重错误，程序崩溃。

我尝试过多线程，在 ide 里，还能工作，编译后执行立马报错。

看到别人的关于安全多线程的帖子都是基于过程 这个是函数 这个问题遇到大师级别的才能有答案。 谢谢楼上两位

不知道为什么放弃快钢刀不用，要自己磨石头刀。用任何工具都该是扬长避短吧。
感觉你了解多线程不少，想没想过用C++做DLL，或者下一个Interop Forms Toolkit和混编呢。
看到一篇多线程的VB6代码。http://www.
创建线程不是按函数地址调用，而是按类标识符，感觉很不灵活。可以看看有没有帮助。

 先谢谢你善意的提醒 对于循环改多线程，这个线程的创建初始化开销一定要小不然就失去普遍意义。上面的例子看了一下使用上面的例子速度没明显提升。 以前看过别人关于多线程的实现 讨论怎么安全多线程。大量的FOR循环通过多线程拆解成几个小点的循环。这个技术应用才算变的具有普遍使用。因为几乎每个程序都包含有循环体。
也没有我必须使用这个功能的意思，我写东西原则优先保证能用起来。然后在完善和优化。这个问题作为技术储备心态对待。

我觉得要做的不是一定要创建100个线程来证明使用了多线程技术有多大的速度提升,而是对于不同的硬件条件和软件环境找到适合的线程数。

真实用的时候要控制 线程熟练为CPU核心+1 再多反而减速