Event VB.Net Tutorial

Public Class Tester
    Shared Dim WithEvents Click3 As New TripleClicker
    Public Shared Sub Main
        Click3.Click()
        Click3.Click()
    End Sub
    Private Shared Sub Click3_TplClick(ByVal Text As String) Handles Click3.TplClick
        Console.WriteLine(Text)
    End Sub
    
End Class
Public Class TripleClicker
    Public Event TplClick(ByVal Text As String)
    Public Sub Click()
        Static intCount As Integer = 0
        intCount += 1
        If intCount >= 3 Then
            intCount = 0
            RaiseEvent TplClick("The button was triple clicked.")
        End If
    End Sub
End Class
The button was triple clicked.