Why won't intcounter add 1?
Code:
Option Explicit
Dim intcounter As Integer
Private Sub Command1_Click()
intcounter = intcounter + 1
End Sub