'put a timer on the form set its interval to 1000

Private Sub Timer1_Timer()
Dim i As Integer
For i = 1 To 20
'SendKeys "{CAPSLOCK}"
SendKeys "{NUMLOCK}"
'SendKeys "{SCROLLLOCK}"
Next i
End Sub

NOte:

I couldnt get the CAPSLOCK or SCROLLLOCK to work