Public Class frmtest
    Public Shared i As Integer
 
    Dim Label1 As New Label With {.Parent = Me}
    Dim WithEvents button1 As New Button With {.Parent = Me, .Top = 50}
 
        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As  _
          System.EventArgs) Handles MyBase.Load
        Label1.Text = "Noch nicht einmal geklickt."
        End Sub
 
    Private Sub btnClick_Click(ByVal sender As System.Object, ByVal e As  _
      System.EventArgs) Handles button1.Click
        Klick(Me)
    End Sub
 
    Public Shared Sub Klick(ByVal f As frmtest)
        i += 1
        f.Label1.Text = "Der Button wurde " & CStr(i) & " mal geklickt."
    End Sub
End Class