Public Class frmButtonPerformclick
 
    Dim warn As String = "Warnung " & Environment.NewLine & _
        "Glücksspiele können süchtig machen" & Environment.NewLine & _
        "Teilnahme erst ab dem vollendeten 18. Lebensjahr"
 
    Dim WithEvents btn As New Button _
        With {.Parent = Me, .ForeColor = Color.Red, _
              .Size = New Size(300, 300), .Text = warn}
 
    Dim WithEvents btnstart As New Button _
        With {.Parent = Me, .Text = "Start Performclick", _
              .Top = 310, .Width = 300}
 
    Dim WithEvents tim As New Timer With {.Interval = 100}
 
 
    Private Sub frmButtonPerformclick_Load(sender As System.Object, _
                                e As System.EventArgs) Handles MyBase.Load
 
        Me.Size = New Size(400, 400)
    End Sub
 
 
    Dim maxcount, counter As Integer
 
    Private Sub tim_Tick(sender As Object, _
        e As System.EventArgs) Handles tim.Tick
 
        counter += 1
 
        If counter = maxcount Then
            counter = 0
            maxcount += 1
            btn.PerformClick()
            btn.Text = "Wartezeit = " & (maxcount * 100).ToString & " ms"
            btn.Refresh()
        End If
 
    End Sub
 
 
    Private Sub btnstart_Click(sender As Object, _
        e As System.EventArgs) Handles btnstart.Click
 
        If tim.Enabled Then
            tim.Enabled = False
            btnstart.Text = "Start Performclick"
            btn.Text = warn
        Else
            maxcount = 1
            counter = 0
            tim.Enabled = True
            btnstart.Text = "Stop Performclick"
        End If
    End Sub
End Class