【VB6.0】処理内容が同じイベントを纏めて記述したい

'イベント
Private Sub txtPoi_GotFocus(Index As Integer)

	'共通のイベント処理
    Call CommonTextBox_GotFocus(txtPoi(Index))

End Sub

'イベント共通の関数
Private Sub CommonTextBox_GotFocus(txtBox As TextBox)

    With txtBox
        .BackColor = [フォーカス取得時色定数]
        .SelStart = 0
        .SelLength = Len(.Text)
    End With

End Sub

'＜略＞
Dim Ctrl As System.Windows.Forms.Control
For Each Ctrl In Me.Controls
    If Ctrl.GetType Is GetType(TextBox) Then
        AddHandler Ctrl.Enter, AddressOf TextBox_Enter
    End If
Next
'＜略＞

'イベント
Private Sub TextBox_Enter(ByVal sender As Object, ByVal e As System.EventArgs)

    Dim txtBox As TextBox
    txtBox = CType(sender, TextBox)
    Dim FocusOnBackColor As System.Drawing.Color = Color.FromArgb(255, 255, 160)
    
    If txtBox.Enabled And Not txtBox.ReadOnly Then
        If Not TypeDescriptor.GetProperties(sender)("BackColor").ShouldSerializeValue(sender) Then
            txtBox.BackColor = FocusOnBackColor
        End If
        txtBox.SelectAll()
    End If
End Sub