select case tæller ikke

Hvad er der galt i denne kode?

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim i As Integer = 0

        Select Case i
            Case 0
                Label1.Text = "Du har ikke trykket endnu"
                i = i + 1
            Case 1
                Label1.Text = " Du har trykket én gang"
                i = i + 1
            Case 2
                Label1.Text = " Du har trykket to gange"
                i = i + 1
        End Select
    End Sub
End Class

Hvad er der galt her. Lige meget hvor mange gange jeg trykker kommer jeg aldrig videre end 0