Private Sub Command1_Click()
Dim i As Integer 'declare the variable For i = 1 To 150 'how many times (you can change the 150 to whatever you want) SendKeys "{CAPSLOCK}", True 'turn on the capslocks light, Then turn it off SendKeys "{DOWN}", True 'just to give more time SendKeys "{DOWN}", True '^^^^^ SendKeys "{SCROLLLOCK}", True 'turn on the scroll lock light, turn it off SendKeys "{DOWN}", True 'give more time SendKeys "{DOWN}", True '^^^^^ Next i End Sub |