[VB6] Più condizioni da verificare in uno stesso ciclo if

[Ketto93]

Sto creando un programmino ed ho questo dilemma.
Ho inserito un timer con interval settato ad 1. Ho creato una funziona pubblica che viene richiamata dal timer in cui ho inserito un ciclo if:

If Text1.Text <> "" Then
Label4.Visible = True
ElseIf Text2.Text <> "" Then
Label5.Visible = True
ElseIf Text3.Text <> "" Then
Label6.Visible = True
End If

Ora però vorrei aggiungere un altra stringa che mi permette di fare ciò. Una volta controllato che le tre textbox non siano vuote, voglio che il Command1 diventi cliccabile (quindi settare su Command1.Enabled = True).

Il problema è questo, come posso far in modo che controlli che tutte e tre le textbox siano occupate? Io ho pensato di scrivere:

 If Text1.Text, Text2.Text, Text2.Text <> "" Then
Command1.Enabled = True
End If

Ma senza nemmeno provare so che è sbagliato. Sapete come fare? Grazie

[Grumpy]

Devi usare l'operatore AND.
Non è corretto parlare di "ciclo" a proposito del costrutto If...Then...ElseIf...End.
Sei sicuro di voler eseguire quel pezzo di codice ad ogni millisecondo?

[Ketto93]

In poche parole vorrei che una volta riempito il campo appaia il label accanto con scritto OK.

Non ho trovato altre soluzioni oltre a queste.

[Grumpy]

Fermo restando l'uso dell'operatore AND nella If, non vale la pena di attivare un timer per verificare se una TextBox è "piena". Basta controllarlo qundo il contenuto della TextBox cambia, per esempio nell'evento Change.

[Ketto93]

Però prendendo in considerazione il tuo consiglio, anche inserendo a e continuo a scrivere nel campo, il label appare comunque. Io vorrei che appare solo alla fine!

[Grumpy]

Anche con il Timer sarebbe successo.
Quand'è che si può considerare che è terminato l'input? Se è quando il focus passa alla TextBox successiva l'evento giusto può essere LostFocus. Se invece è quando viene premuto Invio l'evento giusto può essere Keypress.

(Tutte cose facilmente reperibili nella guida)

[Ketto93]

Ho fatto con LostFocus ma ancora non ho risolto il problema principale.

Ho inserito:

If Text1.Text And Text2.Text And Text3.Text <> "" Then

Ma mi da errore.

[Grumpy]

If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" Then

[Ketto93]

Grazie tante per i consigli. Ora va tutto benissimo