[VB6] GotFocus per tutti i campi di una form

[Boolean]

ho trovato anche una soluzione senza l'utilizzo di un Timer:

Dim WithEvents ActCtrl As TextBox
Dim OldCtrl As TextBox

Private Sub ActCtrl_GotFocus()
ActCtrl.BackColor = vbRed
End Sub

Private Sub ActCtrl_LostFocus()
Set OldCtrl = ActCtrl
OldCtrl.BackColor = vbWhite
Set ActCtrl = Me.ActiveControl
End Sub

Private Sub Form_Load()
Set ActCtrl = Text1
End Sub

nel codice ho fatto in modo che il textbox con il focus sia colorato di rosso.

Boolean