VB里模块怎么多线程调用？

模块信息
Public Declare Function timeGetTime Lib "winmm.dll" () As Long

'延时秒数
Public Sub TimeOut(ByVal num As Integer)
Dim t As Long
t = timeGetTime
Do Until timeGetTime - t >= num * 1000
DoEvents
Loop
End Sub
‘调用信息：
’按键1
Private Sub Command1_Click()
Dim i As Integer
For i = 1 To x
'加载
TimeOut t0

'卸载
TimeOut t1
Next i

'加载
TimeOut 5
'读数
Text8.Text = Form2.Text1.Text
Text8.Locked = True
TimeOut t2
'读数
Text9.Text = Form2.Text1.Text
Text9.Locked = True
'卸载
TimeOut 5
'读数
Text10.Text = Form2.Text1.Text
Text10.Locked = True
'读数
TimeOut t3

请问在VB中如何调用多线程？ VB如何调用模块？ VB调用模块中的函数? VB中在模块中的模块调用 如何建立VB的Access数据库连接模块,怎么调用这个模块! VB里模块怎么个用法？ VB中调用模块的问题 vb怎么调用资源 vb怎么调用MouseDown VB怎么调用outlook