Baggrundsfarve i tekstboxe

Jeg sidder og laver et program og vil godt have, at baggrundsfarven skifter i tekstboxene efterhånden som man tabber igennem dem. Altså at en tekstbox f.eks. har gul baggrund nor den har "gotfocus".

Det er jo nemt nok at skrive det i got og lotfocus i hver tekstbox. Men kan det ikke gøres nemmere ved hjælp af en sub der tjekker hvilken textbox der har focus og så ændrer efterhånden.

Noget a´la det her:

sub bgfarve()

Tjekke hvilken textbox der har focus
ændre dens baggrundsfarve til f.eks. gul
Ændre de andre til hvid

end sub