複数のカスタムコントロールで共通のコードをまとめたい

＜イベントクラス＞ 
Imports System.Drawing 
Imports System.Windows.Forms 
Imports System.Reflection

''' <summary> 
''' 共通イベントクラス 
''' </summary> 
''' <remarks></remarks> 
Friend Class ControlEvent 

#Region " 変数" 
''' <summary>元の色</summary> 
Private Shared _originalBackColor As Color 
''' <summary>変更する色</summary> 
Private Shared _focusColor As Color = Color.Empty 

#End Region 

#Region " event" 

#Region " フォーカス取得時の背景色制御用イベント群" 
''' <summary> 
''' コントロールのEnterイベント 
''' </summary> 
''' <param name="sender">イベント発生元コントロール</param> 
''' <param name="e">System.EventArgs</param> 
''' <remarks></remarks> 
Friend Shared Sub xxxxEnter(ByVal sender As Object, ByVal e As System.EventArgs) 
    Dim ctrl As Control 
    Dim t As Type 
    Dim prop As PropertyInfo = Nothing 

    ctrl = TryCast (sender, Control) 

    if ctrl is nothing then
        'エラー処理
　    　Return
    end if

    '対象のコントロールのFocusColorプロパティの値をGet 
    t = ctrl.GetType() 
    prop = t.GetProperty("FocusColor") 

    If prop IsNot Nothing Then 
        _focusColor = CType(t.InvokeMember("FocusColor", BindingFlags.GetProperty, Nothing, sender, Nothing), Color) 
    End If 

    '現在の背景色を保存し、目立つ色に変更する 
    _originalBackColor = ctrl.BackColor 

    If _focusColor = Color.Empty Then 
        _focusColor = DefaultFocusedBackColor 
    End If 
    ctrl.BackColor = _focusColor 

End Sub 

''' <summary> 
''' コントロールのLeaveイベント 
''' </summary> 
''' <param name="sender">イベント発生元コントロール</param> 
''' <param name="e">System.EventArgs</param> 
''' <remarks></remarks> 
Friend Shared Sub xxxxLeave(ByVal sender As Object, ByVal e As System.EventArgs) 
Dim ctrl As Control 

    ctrl = TryCast (sender, Control) 

    if ctrl is nothing then
        'エラー処理
　    　Return
    end if

    '背景色とフォントを元に戻す 
    ctrl.BackColor = _originalBackColor 
End Sub 
#End Region 

#Region " Enter時のフォーカス移動用イベント群" 
''' <summary> 
''' コントロールのKeyDownイベント 
''' </summary> 
''' <param name="sender">イベント発生元コントロール</param> 
''' <param name="e">System.Windows.Forms.KeyEventArgs</param> 
''' <remarks></remarks> 
Friend Shared Sub xxxxKeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) 
Dim ctrl As Control 

    ctrl = TryCast (sender, Control) 

    if ctrl is nothing then
        'エラー処理
　    　Return
    end if

    'Enterキーが押されたときにフォーカスの移動を行う 
    If e.KeyCode = System.Windows.Forms.Keys.Enter Then 
        Dim txtbox As TextBox 

        txtbox = TryCast (sender, TextBox) 

        'テキストボックスの場合 
        If txtbox IsNot Nothing Then 
            '複数行入力可の場合処理、MybaseのKeyDownを実行 
            If txtbox.Multiline = True Then 
                Return 
            End If 
        End If 

        'フォーカス移動 
        Dim forward As Boolean = e.Modifiers <> Windows.Forms.Keys.Shift 

        ctrl.FindForm.SelectNextControl(ctrl, forward, True, True, True) 

        Return 
    End If 

End Sub 

#End Region 
#End Region 
End Class