Class Eventklasse
    Inherits Button
 
    Friend intZaehler As Integer
    Private tTimer As myTimer
 
    Public Event Dreifachklick(ByVal Sender As Object)
 
    Private Sub Ev_Baby(ByVal sender As Object) Handles Me.Dreifachklick
        If IsNothing(tTimer) Then
            tTimer = New myTimer(Me)
            tTimer.Interval = 1000
            tTimer.Start()
        ElseIf Not tTimer.Enabled Then
            tTimer.Enabled = True
        End If
        intZaehler += 1
 
        If intZaehler = 3 Then
            MsgBox("3-Fach geklickt!")
        End If
    End Sub
 
    Protected Overrides Sub OnMouseClick(ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseClick(e)
        RaiseEvent Dreifachklick(Me)
    End Sub
 
    Private Class myTimer
        Inherits Timer
        Dim meinHerr As Eventklasse
 
        Public Sub New(ByRef Objekt As Eventklasse)
            meinHerr = Objekt
        End Sub
 
        Protected Overrides Sub OnTick(ByVal e As System.EventArgs)
            MyBase.OnTick(e)
            meinHerr.intZaehler = 0
            Me.Enabled = False
        End Sub
    End Class
 
End Class