Salve ragazzi, ciao moderatori,

ho fatto una piccola ricerca nel forum ma non sono riuscito a trovare nulla.
Il mio problema è questo:

Ho una form con dei campi, cioè dei TexBox.
Vorrei gestire il GoFocus è lo faccio per ognuno di essi con la routine:

------------------------
Private Sub txtCliente_GotFocus() ' entra nel campo
txtCliente.SelStart = 0
txtCliente.SelLength = 65535
End Sub
--------------------

dove txtCliente è il nome del campo.
Inserisco questa routine per ognuno dei campi della form.
Vi chiedo un piccolo aiuto per sapere se è possibile gestire l'evento GotFocus con un'unica routine per tutti i TextBox presenti sulla form.
Io ho provato così

---------------------
Public Sub EvidenziaControl(frm As Form)
Dim txt As textbox
For Each txt In frm.Controls
If txt_GotFocus() Then
txt.SelStart = 0
txt.SelLength = 65535
End If
Next ctr
--------------------
Richiamando questa routine all'interno di una Timer come di seguito (impostato a 1 l'intervallo di tempo):

----------------------------
Private Sub Timer1_Timer()
Call EvidenziaControl(frmMIO)
End Sub
----------------------------


ma non funziona !



Grazie anticipate per l'aiuto