[VB6] Colorare le caselle da modulo

[marco.santilli]

Nella form utilizzo questo metodo per colorare le caselle quando solo in modalità scrittura

Private Sub Text1_GotFocus()
Text1.BackColor = &HC0FFFF
End Sub
Private Sub Text1_LostFocus()
Text1.BackColor = &HFFFFC0
End Sub

Se ho 50 caselle lo faccio per tutte:

Private Sub Text1_GotFocus()
Text1.BackColor = &HC0FFFF
End Sub
Private Sub Text1_LostFocus()
Text1.BackColor = &HFFFFC0
End Sub
Private Sub Text2_GotFocus()
Text2.BackColor = &HC0FFFF
End Sub
Private Sub Text2_LostFocus()
Text2.BackColor = &HFFFFC0
End Sub

cosi via dicendo, sia per la form stessa che in tutte le altre

C'è un metodo per crearlo in modo generico in un modulo e poi farlo eseguire automaticamente in modo che quando mi sposto mi esegue tale codice

Ciao e grazieeeeeeeee