Ciao

prova con uno dei quattro sotto

Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

1: My.Computer.Keyboard.SendKeys("{CAPSLOCK}")
2: My.Computer.Keyboard.SendKeys(Keys.CapsLock)

3: SendKeys.Send(Keys.CapsLock)
4: SendKeys.Send("{CAPSLOCK}")

End Sub

Ciao