[VB6] Errore critico in eseguibile

[teto]

Originariamente inviato da oregon
Il problema sta in questa Sub

Sub meStartFO()
  Dim hThread As Long, hThreadID As Long
  hThread = CreateThread(ByVal 0&, ByVal 0&, AddressOf StartFO, ByVal 0&, ByVal 0&, hThreadID)
  CloseHandle hThread
  'StartFO
End Sub

che utilizza la CreateThread per far partire la StartFO in un altro thread. Sembra una modifica fatta in un secondo momento perche' la normale chiamata a StartFO esiste ma commentata.

Gli eseguibili creati da VB6 (a differenza di VB5) non sono compatibili con il multithreading e la CreateThread *non* puo' essere usata. Riporta quindi il codice nella versione originale, ovvero

Sub meStartFO()
  StartFO
End Sub

Ovviamente, devi ricompilare.

grazie 1000^x funziona