Изменение цвета активного элемента - Visual Basic .NET

Формулировка задачи:

Научите пожалуйста как через модуль можно организовать подсветку выбранного текстбокса. Понятно что нужно использовать получение фокуса

                    Листинг программы
                
 txtbox.BackColor = Color.red

. Но не хочется прописывать это событие для каждого текстбокса по отдельности.

Решение задачи: «Изменение цвета активного элемента»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        HidglightActiveTextBox(Me)
    End Sub
 
    Sub HidglightActiveTextBox(frm As Control)
        For Each ctrl As Control In frm.Controls
            If TypeOf (ctrl) Is TextBox Then
                AddHandler ctrl.GotFocus, AddressOf _GotFocus
                AddHandler ctrl.LostFocus, AddressOf _LostFocus
            End If
            HidglightActiveTextBox(ctrl)
        Next
    End Sub
 
    Private Sub _GotFocus(sender As Object, e As EventArgs)
        sender.BackColor = Color.MistyRose
    End Sub
 
    Private Sub _LostFocus(sender As Object, e As EventArgs)
        sender.BackColor = Color.White
    End Sub
End Class