visual basic 6.0中的多线程

Private Declare Function CreateThread Lib "kernel32" (ByVal lpThreadAttributes As Long, ByVal dwStackSize As Long, ByVal lpStartAddress As Long, ByVal lpParameter As Long, ByVal dwCreationFlags As Long, lpThreadId As Long) As Long
Private Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long

Private Sub ThreadProc(ByVal lpParameter As Long)
    ' 在此处编写线程的逻辑代码
    MsgBox "Hello from thread!"
End Sub

Private Sub CreateThread_Click()
    Dim hThread As Long
    Dim dwThreadId As Long
    
    hThread = CreateThread(0, 0, AddressOf ThreadProc, 0, 0, dwThreadId)
    
    ' 检查线程是否成功创建
    If hThread <> 0 Then
        MsgBox "Thread created successfully!"
        
        ' 关闭线程句柄
        CloseHandle hThread
    Else
        MsgBox "Failed to create thread!"
    End If
End Sub