Public Class Form1
    Dim led As Int32 = 0
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        led += 1
        Me.Text = "Led " & led & " ist an"
    End Sub
End Class