CreateThread的第四个参数定义为As Any，当然可以传递结构。如： 
    Function DaThreadFunc(ByRef lpParam As PARAM_TYPE) As Long 
    ... 
    End Function 
     
    Sub Main() 
     
     Dim lRet As Long 
     Dim lThreadID As Long 
     Dim stParam As PARAM_TYPE 
     
     lThreadID = 0 
     lRet = CreateThread(0, _ 
     0, _ 
     AddressOf DaThreadFunc, _ 
     stParam, _ 
     0, _ 
     lThreadID) 
    ... 
    End Sub 
<END>
