neu Counter

Public Class Form1

        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            If (Label1.Text = "39") Then
                MsgBox("HEY! Die Chance auf ein Shiny ist jetzt sehr hoch! Es besteht eine 1:200 Chance. Achte auf aufblinkendes Gras", vbOKOnly, "Chance gestiegen!")
            End If
            Label1.Text = Label1.Text + 1
        End Sub

        Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
            If (Label1.Text = "0") Then
            Else
                Label1.Text = Label1.Text - 1
            End If
        End Sub

        Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
            Label1.Text = "0"
        End Sub
    End Class