Ho questo tipo di problema/quesito:

Riporto il codice:

Modulo standard:

Public Const CTF_COINIT = &H8
Public Const CTF_INSIST = &H1
Public Const CTF_PROCESS_REF = &H4
Public Const CTF_THREAD_REF = &H2
'Public stato As Integer
Public Declare Function SHCreateThread Lib "shlwapi.dll" (ByVal pfnThreadProc As Long, pData As Any, ByVal dwFlags As Long, ByVal pfnCallback As Long) As Long

Public Sub myThread(Index)


Do While Not stopThread(Index)
Form1.Text1(Index).Text = CLng(Form1.Text1(Index).Text) + 1
Loop

Form1.Text1(Index).Text = 0

End Sub

Nel Form:


'problema: non mi accetta il passaggio del parametro Index in myThread, quindi
'non riesco a passarlo
SHCreateThread AddressOf myThread(Index), ByVal 0&, CTF_INSIST, ByVal 0&

Avete una soluzione?

Grazie.