下面是一个 VB6 多线程代码样例:
Private Sub Form_Load()
Dim Thread1 As New Thread
Set Thread1 = New Thread
Thread1.ThreadID = 1
Thread1.Run
End Sub
Private Sub Class_Initialize()
Dim Thread2 As New Thread
Set Thread2 = New Thread
Thread2.ThreadID = 2
Thread2.Run
End Sub
Private Sub Thread_