وراثة الأحداث

اعتقد انه يمكن التحايل على هذه المشكلة كالاتي‎:‎

‎

‎
Private Clicks As Integer
‎	Private WithEvents tmrClick As New Timers.Timer(1000) '' Click Speed‎

‎	Private Sub chk_CheckedChanged(ByVal sender As System.Object, ByVal e As ‎System.EventArgs) Handles chk.CheckedChanged

‎	End Sub

‎	Private Sub chk_Click(ByVal sender As Object, ByVal e As System.EventArgs) ‎Handles chk.Click
‎		Clicks += 1‎
‎		If Clicks = 2 Then
‎			MessageBox.Show("Double Click")‎
‎		End If
‎	End Sub

‎	Private Sub tmrClick_Elapsed(ByVal sender As Object, ByVal e As ‎System.Timers.ElapsedEventArgs) Handles tmrClick.Elapsed
‎		Clicks = 0‎
‎	End Sub

‎	Private Sub frmMain_Load(ByVal sender As Object, ByVal e As ‎System.EventArgs) Handles Me.Load
‎		tmrClick.Start()‎
‎	End Sub

‎

‎