Seria algo asi, es basicamente lo mismo que dije yo -o-
Código:
dim contador as integer
contador=0
sub boton_Click()
contador=contador+1
//n es el numero de eventos distintos que se realizaran
select case contador%n
case 1
evento1
case 2
evento2
...
case 0
evento n
end select
end sub
No me acuerdo si la sintaxis es asi pero por ahi va la idea