VB . Net - Adicionar +1 Simulando um Contador

Public Class Add

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

        'Adiciona +1

        Me.Label1.Text = Format(CInt(Me.Label1.Text) + 1, "0000000")

    End Sub

End Class

Até mais... Abraços.