codice:
Private Sub Fuoco(ByVal sender As System.Object, ByVal e As EventArgs) _
Handles Textbox1.Enter, Textbox2.Enter, textbox3.Enter,ecc.... 

..
..
..

end sub

ad ogni "fuoco" degli oggetti indicati richiama in automatico questa sub



end sub