VB6.0 为函数创建线程同时给函数传参
'创建线程函数
Public Function CreateNewThread(ByVal cFunction As Long, Optional ByVal cPriority As Long = tpNormal, Optional ByVal cEnabled As Boolean = True)
DrawLine函数如下:
DrawLine(SX, SY, EX, EY, LS)
以下是调用:
ThreadControl.CreateNewThread AddressOf DrawLine, tpNormal, cEnabled
如何实现为函数创建线程时给函数传参?