Eseguire procedura su oggetti differenti con una sola sub

[gaullo]

Ciao ragazzi il mio problema è semplice e complesso allo stesso tempo:
ho un'operazione da compiere ( selezionare il testo di una textbox quando prende il focus).
Ho molte textbox e vorrei poter scrivere una sola sub per eseguire questa operazione.

Ecco com'è il mio codice....

Private Sub Text4_GotFocus()
lunghezza = Len(Text4.Text)
Text4.SelStart = 0
Text4.SelLength = lunghezza
End Sub

...e come lo farei io...peccato che non funz

Private Sub Text(var)_GotFocus()
lunghezza = Len(Text(var).Text)
Text(var).SelStart = 0
Text(var).SelLength = lunghezza
End Sub

qualche idea???
non sono molto afferrato su questi argomenti quindi non risparmiate informazioni per voi "ovvie"

grazie

[gaullo]

Per maggiore chiarezza utilizzo vb6...

[gaullo]

Almeno ditemi se è possibile o se è troppo complesso da spiegare tramite forum

[Markooo]

Se ho capito bene cio che vuoi fare, basta utilizzare una matrice di controlli:

Private Sub Text1_GotFocus(index As Integer)
   lunghezza = Len(Text1(index).Text)
   Text1(index).SelStart = 0
   Text1(index).SelLength = lunghezza
End Sub

Per la matrice, basta che crei un TextBox, poi copi e incolli questa che hai creato e ti verrà chiesto se creare una matrice!

[gaullo]

Grazie nn ci avevo pensato. mo provo e faccio sapere

[Markooo]

Ok, io ho provato con 2 textbox giusto per provare e mi fuzionava