Public Class frmMain
    Shared i As Integer
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        lblLabel.Text = "Noch nicht einmal geklickt."
    End Sub
 
    Private Sub btnClick_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles btnClick.Click
        Klick()
    End Sub
 
    Public Shared Sub Klick()
        i += 1
        lblLabel.Text = "Der Button wurde " & i & " mal geklickt."
    End Sub
End Class