Как реализовать прибавление - VB

Формулировка задачи:

Приветствую. Вопрос наверное банальный, но нужно, чтобы каждый раз, при нажатии кнопки, к числу прибавлялась единица. Пробовал через

Private Sub Command2_Click()
Dim a As Integer
a = 0
a = a+1

но он останавливается на 1 и все. То ли я дурак, то ли лыжи не едут.

Решение задачи: «Как реализовать прибавление»

textual
                            Листинг программы 
                        

                             Static Sub Command2_Click()
    Dim a As Integer
    a = a + 1
                        