Il problema sta in questa Sub
codice:
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
codice:
Sub meStartFO()
StartFO
End Sub
Ovviamente, devi ricompilare.