Visual Basic 6 - Focus su Textbox

scusate ma che sarebbe questo codice???!!!
è uno skerzo...
Una Sub dentro un altra Sub...
è un nuovo modo di programmare...?? boh...

scusa non riesco ad aiutarti ho appena acceso il pc e devo partire domani alle 7 per tre giorni.
fatti aiutare da luigi che penso sappia come sviluppare il codice dai tip che ho postato sopra.

Ps: dai su Luigi non dirmi che tu non ci hai mai provato agli inizi..

Crea un bell'array e hai risolto xD

imposti i tab index delle text e cambi colore ad ogni tab !

Se ti basta che si colori solo nel momento del click

Private Sub Text1_Click()
Call sbianca
Text1.BackColor = vbRed
End Sub

Private Sub Text2_Click()
Call sbianca
Text2.BackColor = vbGreen
End Sub

Public Sub sbianca()
Text1.BackColor = vbWhite
Text2.BackColor = vbWhite
End Sub

se vuoi che rimanga colorata elimini la sbianca e le chiamate.

Credo che l'unico che abbia capito la mia domanda sia stato Paperoga.
Allora, mi spiego meglio.
Ho una form, con 5 textbox. Il nome di queste texbox sono: Pippo, Pluto, Topolino, Paperino e Paperone.
Io volevo sapere se esisteva un modo per poter far cambiare lo sfondo di queste textbox solo quando il focus andava su una di esse. Nel senso: lo sfondo di tutte le textbox è bianco inizialmente. Se clicco su Pippo, lo sfondo diventa giallo; se, dopo, clicco su Pluto, lo sfondo di Pippo ritorna bianco, mentre quello di Pluto diventa giallo, e così via.
Ovviamente, come si può notare dai nomi delle textbox, non ho creato nessun array di textbox. Quindi volevo sapere se c'era un modo per poter scrivere una sola sub per _GotFocus ed una per _LostFocus che usi, come mi ha consigliato Paperoga, il me.control, invece di scrivere un GotFocus ed un LostFocus per ogni textbox.

spiacente ho risolto solo con un timer.

Dim lastobject As Object


Private Sub Timer1_Timer()
On Error Resume Next
If Not lastobject = Form1.ActiveControl Then
lastobject.BackColor = vbWhite
Form1.ActiveControl.BackColor = vbYellow
Set lastobject = Form1.ActiveControl
End If
End Sub

il codice è abbastanza banale, mancano alcune casistiche, ma dovresti riuscire a impostarle tu.
ad esempio manca il controllo "se è una textbox allora" ma non l'ho messo per non complicarti il codice.
se ti serve posta.