编写一个VB6多线程代码样例

下面是一个 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_