Variavel Perde O Valor

[Halfar]

A variavel desvio2, tipo boleana esta perdendo seu valor.

Note a sequencia do programa. Inicialmente a variavel contem o valor true

Em seguida é executado o laco for. Quando a variavel X contem o nome de um determinado checkbox, o programa executa o evento click deste checkbox. Na realidade isto não era para acontecer, mas como ocorre isto, é justamente esta variavel desvio2 que irá abortar o fluxo do programa no evento click do check box. Mais abaixo veja o evento click do checkbox:

este codigo esta inserido no evento onChange do textbox
desvio2 = True '
For I = 0 To FormHoteis.Count - 1
    If TypeOf FormHoteis.Controls(I) Is CheckBox Then
    FormHoteis.Controls(I).Value = False
    X = FormHoteis.Controls(I).Name
    
    End If
Next I

este trecho de codigo esta inserido no evento click do checkbox

If Login.usuario = "" And Login.usuario_administrador = "" Then
Mensagem = MsgBox("Seu login está desabilitado. Efetue o login para poder continuar", vbCritical, "Sinithsp - Aviso do sistema")
Exit Sub
End If


xDataUsuario = Format(Date, "yyyy/mm/dd")
xHoraUsuario = Format(Time, "HH:MM")


// aqui o programa deveria ser abortado. Mas o conteudo da variavel é false.
If FormHoteis.desvio2 = True Then 
Exit Sub
End If

A variavel que continha o valor true no evento onChange do textbox, ao ir para o evento onClick do checkbox ela fica falsa. não sei porque ocorre isto..

[kuroi]

desvio2 é mesmo uma variavel? não é um controle, uma checkbox?

tente isso:

If desvio2 Then
Exit Sub
End If