Do While non va in loop

[micro]

Salve ragazzi ho questa porzione di codice mooolto semplice ma non riesco a capire perchè non va in loop

Codice: [Seleziona]

Public Sub Form_Activate()
  Wait 0.5
  open_sock
  Do While esci = False
    Main
  Loop
End

La variabile esci è definita False in Sub_new e quindi Main dovrebbe essere eseguita all'infinito sino a che esci è True ma viene eseguita solo una volta.
Ho provato anche a portare il loop direttamente in Main ma è sempre la stessa cosa.
Misteri di Gambas?

Grazie per i consigli

[vuott]

La variabile esci è definita False in Sub_new

...e se la definisci semplicemente globale come booleana (al di fuori del Sub _New) ?

[micro]

Grazie vuott per la tua solita disponibilità.
Naturalmente e' dichiarata in global, ma è in _new che assegno il valore false.
Ma non è quello il problema, perchè all'inizio del Do While è comunque false tantè che viene eseguita la porzione di codice ma dopo non riprende il loop, se fosse stata True non verrebbe eseguito.
Infatti dopo il loop ho inserito una linea di codice che naturalmente non viene eseguita perchè appunto esci è False ma il Loop non cicla.
 
Cosa potrebbe essere?

[micro]

Risolto.
Inaspettatamente s'innescava un'altro loop all'infinito in una porzione di codice relativa al socket.
Teroicamente se mettevo in pausa doveva fermarsi in quel loop il debug, vero?
Invece mi segnalava un errore ecco perchè non me ne sono accorto subito.
Comunque Thread chiuso, grazie.