Small fun with Notepad |caps Lock Trick

What fun are we going to make with notepad?  
     Below you can find the Visual Basic Script code.  This code make the caps lock light blink continuously.  If you run this script twice the rate of blink increases and alternatively NumLock light start to blink with CapsLock.

VBS CODE:
Set wshShell =wscript.CreateObject(“WScript.Shell”)
do
wscript.sleep 100
wshshell.sendkeys “{CAPSLOCK}”