Class Eventklasse
    Inherits Button
 
    Private intZaehler As Integer
    Private WithEvents tTimer As Timer
 
    Public Event Dreifachklick(ByVal Sender As Object)
 
    Protected Overrides Sub OnMouseClick(ByVal e As _
      System.Windows.Forms.MouseEventArgs)
        MyBase.OnMouseClick(e)
        RaiseEvent Dreifachklick(Me)
    End Sub
 
    Private Sub Ev_Dreifachklick(ByVal sender As Object) Handles _
      Me.Dreifachklick
        If IsNothing(tTimer) Then
            tTimer = New Timer
            AddHandler tTimer.Tick, AddressOf Timersteuerung
            tTimer.Interval = 2000
        End If
        tTimer.Enabled = True
        intZaehler += 1
        Form1.lblKlicks.Text = intZaehler.ToString
 
        If intZaehler = 3 Then
            MsgBox("3-Fach geklickt!")
            intZaehler = 0
            Form1.lblKlicks.Text = intZaehler.ToString
            tTimer.Enabled = False
        End If
    End Sub
 
    Private Sub Timersteuerung(ByVal sender As Object, ByVal e As _
      System.EventArgs)
        intZaehler = 0
        Form1.lblKlicks.Text = intZaehler.ToString
        tTimer.Enabled = False
    End Sub
End Class