i feel like an idiot posting this, but i want a label to increase by one. I used this and for some reason it doesn't work.

Code:
Private Sub Form_Load()

Dim k As Integer

End Sub

Private Sub tmr_Timer()

k = k + 1

lbl.Caption = k

End Sub
it only goes up to one and stops