如何创建两个线程？

Question

我对线程不了解 身边没有找到合适的书
一般创建的exe程序都是单线程的吧现在想单击窗体上按钮1来调用vb.dll ，问题是dll返回结果前vb.exe是不响应用户操作的，可是我希望vb.exe窗体上的按钮2能同时响应用户单击按钮的事件，做一些其它的事情，请问实现这个功能就必须采用多线程的功能么？是否两个线程？能否指导一下如何创建呢？谢谢

Answer 1

可以在单线中解决这个问题.在循环中加入DoEvents

Answer 2

Option Explicit
'创建线程API
'此API经过改造，lpThreadAttributes改为Any型，lpStartAddress改为传值引用：
'因为函数的入口地址由形参变量传递，如果用传址那将传递形参变量的地址而不是函数的入口地址
Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Any, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, lpParameter As Any, ByVal dwCreationFlags As Long, LpthreadId As Long) As Long
'终止线程API
Private Declare Function TerminateThread Lib "kernel32" (ByVal hThread As Long, ByVal dwExitCode As Long) As Long
'激活线程API
Private Declare Function ResumeThread Lib "kernel32" (ByVal hThread As Long) As Long
'挂起线程API
Private Declare Function SuspendThread Lib "kernel32" (ByVal hThread As Long) As Long
Private Const CREATE_SUSPENDED = &H4                         '线程挂起常量
'自定义线程结构类型
Private Type udtThread
        Handle As Long
        Enabled As Boolean
End Type
Private meTheard As udtThread
'初始化线程
Public Sub Initialize(ByVal LongPointFunction As Long)
       Dim LongStackSize As Long
       Dim LongCreationFlags As Long
       Dim LpthreadId As Long
       Dim LongNull As Long
       On Error Resume Next
       
       LongNull = 0
       LongStackSize = 0
       LongCreationFlags = CREATE_SUSPENDED             '创建线程后先挂起，由程序激活线程
       '创建线程并返线程句柄
       meTheard.Handle = CreateThread(LongNull, LongStackSize, ByVal LongPointFunction, LongNull, LongCreationFlags, LpthreadId)
       If meTheard.Handle = LongNull Then
          MsgBox "线程创建失败！", 48, "错误"
       End If
End Sub
'获取线程是否激活属性
Public Property Get ThreadEnabled() As Boolean
       On Error Resume Next
       Enabled = meTheard.Enabled
End Property
'设置线程是否激活属性
Public Property Let ThreadEnabled(ByVal Newvalue As Boolean)
       On Error Resume Next
       '若激活线程（Newvalue为真）设为TRUE且此线程原来没有激活时激活此线程
       If Newvalue = True And (Not meTheard.Enabled) Then
          ResumeThread meTheard.Handle
          meTheard.Enabled = True
       Else          '若激活线程（Newvalue为真）且此线程原来已激活则挂起此线程
          If meTheard.Enabled Then
             SuspendThread meTheard.Handle
             meTheard.Enabled = False
          End If
       End If
End Property
'终止线程事件
Private Sub Class_Terminate()
        On Error Resume Next
        Call TerminateThread(meTheard.Handle, 0)
End Sub

Answer 3

非常感谢：
Eastunfail(龍子龍孫)　
zou19820704(国际海员) 
的及时帮助zou19820704(国际海员) 这样的程序应用还没有经验，试试看。
请问Eastunfail(龍子龍孫)：
在循环中加入DoEvents
加在哪儿，怎么加呢？