ciao , prova con questo

If My.Computer.Keyboard.CapsLock Then
'attivo
else

End If