modfuntion.bas

.不是源码读您的文件包然后写出其具体读您的文件包然后写出其具体

Attribute VB_Name = "ModFuntion"
Option Explicit
Public Type ThreadParam
    lTlsIndex   As Long
    lpTlsValue  As Long
    lpProcess   As mThreadControl
    lpParam     As Long
End Type
Private Declare Function TlsSetValue Lib "kernel32" (ByVal dwTlsIndex As Long, lpTlsValue As Any) As Long

Public Sub RunThread(lpParam As ThreadParam)
    TlsSetValue lpParam.lTlsIndex, ByVal lpParam.lpTlsValue
    lpParam.lpProcess.RunThread____ (lpParam.lpParam)
End Sub