開発環境、ＯＳが書かれていないので、
ＶＢ２００５で、ユーザーコントロールの場合で書きます。

    '----------------------------------------------
    'Timer Event 定義
    '----------------------------------------------
    Public Event ctlClock_Timer_tick(ByVal sender As Object, ByVal e As System.EventArgs)
    '
    Protected Overridable Sub Timer1_Tick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        '----------------------------------------------
        'Timer Event 発生
        '----------------------------------------------
        RaiseEvent ctlClock_Timer_tick(sender, e)
    End Sub