by S.M. Mehdi Akram (5 Submissions)
Category: Registry
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 29th November 2008
Date Added: Mon 8th February 2021
Rating: (1 Votes)
On NUM Lock when Windows Start
Dim s As String
' S.M. Mehdi Akram
' [email protected]
' Need a Command button
Private Sub Command1_Click()
Set b = CreateObject("wscript.shell")
s = "HKCU\Control Panel\Keyboard\InitialKeyboardIndicators"
b.regwrite s, "2", "REG_SZ"
Set b = CreateObject("wscript.shell")
s = "HKEY_USERS\.DEFAULT\Control Panel\Keyboard\InitialKeyboardIndicators"
b.regwrite s, "2", "REG_SZ"
End Sub