Key Lock VB6 Code

This code can Handle remote PC keys...
Code:

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Const VK_NUMLOCK = &H90
Const VK_SCROLL = &H91
Const VK_CAPITAL = &H14
Const KEYEVENTF_EXTENDEDKEY = &H1
Const KEYEVENTF_KEYUP = &H2
    
Dim Numlockstate As Boolean 
Dim caplockstate As Boolean
Dim scrolllockstate As Boolean



Public Function funnumlock()
    Numlockstate = keys(VK_NUMLOCK)
        If Numlockstate <> True Then
            keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
            keybd_event VK_NUMLOCK, &H45, KEYEVENTF_EXTENDEDKEY _
            Or KEYEVENTF_KEYUP, 0
         End If
End Function

Public Function funcapslock()
    Numlockstate = keys(VK_NUMLOCK)
        If Numlockstate <> True Then
            keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
            keybd_event VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY _
            Or KEYEVENTF_KEYUP, 0
        End If
End Function

Public Function funscrolllock()
    Numlockstate = keys(VK_NUMLOCK)
        If Numlockstate <> True Then
            keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0
            keybd_event VK_SCROLL, &H45, KEYEVENTF_EXTENDEDKEY _
            Or KEYEVENTF_KEYUP, 0
        End If
End Function