SelectAll на объекте DirectCast не работает

Question

Мне нужно изменить цвет фона текущего элемента управления, чтобы пользователям было проще видеть, где они находятся на сложных формах. Я вызываю следующую Sub из событий GotFocus и LostFocus, чтобы включить и выключить цвет фона, и при включении я хочу выделить весь текст в элементе управления. Изменения цвета фона работают отлично, но SelectAll не работает. Вот Sub:

    Public Sub P_Focus(ByRef sender As Object, ByVal Focus As Boolean)
    Static Dim lBackColor As Color
    Select Case True
        Case TypeOf sender Is TextBox
            Dim obj As TextBox = DirectCast(sender, TextBox)
            If Focus = True Then
                lBackColor = obj.BackColor
                obj.BackColor = Color.FromArgb(255, 255, 192)
                obj.SelectAll()
            Else
                obj.BackColor = lBackColor
            End If
    End Select
End Sub

Я для краткости исключил все, кроме случая TextBox.

Может кто-нибудь помочь?