Como hacer que una variable aumente en Vb 6

Hola mi duda es la siguiente como le hago para que una variable aumente cada ves que yo le de click a un botón o un label mi código que tengo es este:

If contador = 0 Then
año3.Visible = True
ElseIf contador = 1 Then
año4.Visible = True
End If

contador=1

esto es lo que to tengo pero cada ves que le doy click solo pasa el primero por que no aumenta como le hago???

gracias por la ayuda espero una respuesta y es un poco urgente gracias