Timer in button not work

Hi,

Timer in button which worked before now not works.

Public Class CButton
Inherits Button
Dim WithEvents OTimerRed As Wisej.Web.Timer

Public Sub New(InOStrObjectID As String)
End Sub

Private Sub OTimerRed_Tick(sender As Object, e As EventArgs) Handles OTimerRed.Tick
OTimerRed.Stop()
Me.BackColor = Color.LightBlue

End Sub
Public Function FSetInRed() As Boolean
‘Dim OTimerRed As New Timer With {.Interval = 777 * 2}
Dim OTimerRed As New Timer
OTimerRed.Enabled = True
OTimerRed.Interval = 777 * 2
OTimerRed.Start()

Me.BackColor = Color.Red
Return True
End Function

End Class