'多线程
Imports System.Threading
Private Function RunStock() As Boolean
dim sID as string
sID=Now.ToString
'多线程开始
System.Threading.ThreadPool.QueueUserWorkItem(New System.Threading.WaitCallback(AddressOf LoadStockData), sID)
Next
End Function
Public Function LoadStockData(ByVal sID As String) As Boolean
msgbox( sid)
End Function