روشن و خاموش شدن Caps Lock , Num Lock , Scroll Lock

سلام دوستان من یه کدی دارم که چراغ های کپس و اسکرول و نیم کیبور رو خاموش رشن میکنه. میخوام قستمت اسکرول و نیم رو حذف کنم و فقط کپس خاموش روشن بشه این کد مربوطه هست کسی میتونه کمکم کنه

کد HTML:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long) Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Private Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Private Const VK_NUMLOCK = &H90 Private Const VK_CAPITAL = &H14 Private Const VK_SCROLL = &H91 Private Const KEYEVENTF_KEYUP = &H2 Private Const KEYEVENTF_KEYDOWN = &H0 Private Sub cmd_Click() cmd.Caption = IIf(cmd.Caption = "PLAY", "PAUSE", "PLAY") End Sub Private Sub Form_Load() Dim rgn As Long ' ***Set Light *** keybd_event VK_NUMLOCK, 0, KEYEVENTF_KEYDOWN, 0 keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0 keybd_event VK_SCROLL, 0, KEYEVENTF_KEYDOWN, 0 End Sub Private Sub Timer1_Timer() Timer1.Interval = Slider1.Value Timer2.Interval = Slider1.Value ' *** If cmd.Caption = "PAUSE" Then keybd_event VK_NUMLOCK, 0, KEYEVENTF_KEYUP, 0 keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYDOWN, 0 keybd_event VK_SCROLL, 0, KEYEVENTF_KEYUP, 0 Timer1.Enabled = False Timer2.Enabled = True End If End Sub Private Sub Timer2_Timer() keybd_event VK_NUMLOCK, 0, KEYEVENTF_KEYDOWN, 0 keybd_event VK_CAPITAL, 0, KEYEVENTF_KEYUP, 0 keybd_event VK_SCROLL, 0, KEYEVENTF_KEYDOWN, 0 Timer2.Enabled = False Timer1.Enabled = True End Sub