[Color=Blue]Private[/COLOR] [Color=Blue]WithEvents[/COLOR] txt_box [Color=Blue]As[/COLOR] TextBox
[Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] Form1_Load([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] System.Object, [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.EventArgs) [Color=Blue]Handles[/COLOR] [Color=Blue]MyBase[/COLOR].Load
[Color=Blue]Dim[/COLOR] tb [Color=Blue]As[/COLOR] Control
[Color=Blue]For[/COLOR] [Color=Blue]Each[/COLOR] tb [Color=Blue]In[/COLOR] [Color=Blue]Me[/COLOR].Controls
[Color=Blue]If[/COLOR] [Color=Blue]TypeOf[/COLOR] tb [Color=Blue]Is[/COLOR] TextBox [Color=Blue]Then
[/COLOR] [Color=Blue]AddHandler[/COLOR] tb.Validating, [Color=Blue]AddressOf[/COLOR] txt_box_Validating
[Color=Blue]End[/COLOR] [Color=Blue]If
[/COLOR] [Color=Blue]Next
[/COLOR] [Color=Blue]End[/COLOR] [Color=Blue]Sub
[/COLOR] [Color=Blue]Private[/COLOR] [Color=Blue]Sub[/COLOR] txt_box_Validating([Color=Blue]ByVal[/COLOR] sender [Color=Blue]As[/COLOR] [Color=Blue]Object[/COLOR], [Color=Blue]ByVal[/COLOR] e [Color=Blue]As[/COLOR] System.ComponentModel.CancelEventArgs) [Color=Blue]Handles[/COLOR] txt_box.Validating
[Color=Green]'///[/COLOR] [Color=Green]all[/COLOR] [Color=Green]textboxes[/COLOR] [Color=Green]validating[/COLOR] [Color=Green]events[/COLOR] [Color=Green]now[/COLOR] [Color=Green]handled[/COLOR] [Color=Green]here[/COLOR] [Color=Green].[/COLOR] [Color=Green]
[/COLOR] [Color=Blue]End[/COLOR] [Color=Blue]Sub[/COLOR]