Problem with t.SelectAll()

[BukHix]

I am trying to write a sub that would select (highlight) the default values of my text boxes as they are entered.

Here is the code. For some reason the default value is not being highlighted when I mouse into a textbox. It does, however do so when I tab into it but I think it does that by default. What is wrong with my code or technique?

Private Sub txtOvtAc1_Enter(ByVal sender As Object, ByVal e _
        As System.EventArgs) Handles txtOvtAc1.Enter, _
            txtOvtAc2.Enter, txtOvtAc3.Enter, txtOvtAc4.Enter, _
            txtOvtAf2.Enter, txtOvtBrh.Enter, txtOvtCar.Enter, _
            txtOvtCpt.Enter, txtOvtFin.Enter, txtOvtLab.Enter, _
            txtOvtLat.Enter, txtOvtPla.Enter, txtOvtSflr.Enter, _
            txtOvtSpy.Enter, txtOvtTil.Enter, txtRegAc1.Enter, _
            txtRegAc2.Enter, txtRegAc3.Enter, txtRegAc4.Enter, _
            txtRegAf2.Enter, txtRegBrh.Enter, txtRegCar.Enter, _
            txtRegCpt.Enter, txtRegFin.Enter, txtRegLab.Enter, _
            txtRegLat.Enter, txtRegPla.Enter, txtRegSflr.Enter, _
            txtRegSpy.Enter, txtRegTil.Enter
 
        Dim t As TextBox
        t = sender
        t.SelectAll()
        t.BackColor = Lavender
 
    End Sub

By the way the backcor is being changed as expected.

[dynamic_sysop]

eek , the handler looks a little long , maybe you should look into the AddHandler function , anyway , you need to set the HideSelection property to false on your textbox when selecting all.
try this ...

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim ctl As Control
        For Each ctl In Controls
            If ctl.GetType.IsAssignableFrom(GetType(TextBox)) Then
                AddHandler ctl.Enter, AddressOf TextBox_Enter
            End If
        Next
    End Sub
 
    '/// handle all the textbox enter calls in this simple sub...
    Private Sub TextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs)
        Dim tb As TextBox = DirectCast(sender, TextBox)
        tb.HideSelection = False
        tb.SelectAll()
    End Sub

[mindloop]

try ctype :

Dim t As TextBox
        t = cype(sender, textbox)
        t.BackColor = Lavender
        t.SelectAll()

[BukHix]

Thank you both. The HideSelection = False seemed to work just fine.