Imports System.Runtime.InteropServices
 
Public Class TastaturMethods
 
    <DllImport("user32.dll")> _
    Private Shared Function GetKeyboardState(ByVal keyState() As Byte) As _
    Boolean
    End Function
 
    <DllImport("user32.dll")> _
    Private Shared Sub keybd_event(ByVal bVk As Byte, ByVal bScan As Byte, _
                        ByVal dwFlags As Integer, ByVal dwExtraInfo As Integer)
    End Sub
 
    Private Const KEYEVENTF_EXTENDEDKEY As Integer = &H1
    Private Const KEYEVENTF_KEYUP As Integer = &H2
 
    ''' <summary>Tastatur: Einstellung setzen (NumLock, CapsLock, Scroll)</summary>
    ''' <param name="KeyToSet">Tastencode (zu setzende Tastatureinstellung)</param>
    ''' <param name="OnOff">Einstellung</param>
    Public Shared Sub SetKey(ByVal KeyToSet As System.Windows.Forms.Keys, _
        ByVal OnOff As Boolean)
 
        If GetKeySetting(KeyToSet) <> OnOff Then
            keybd_event(CByte(KeyToSet), &H45S, KEYEVENTF_EXTENDEDKEY Or 0, 0)
            keybd_event(CByte(KeyToSet), &H45S, _
               KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)
        End If
    End Sub
 
    ''' <summary>Tastatur: Einstellung abfragen (NumLock, CapsLock, 
    ' Scroll)</summary>
    ''' <param name="KeyToGet">Tastencode (abgefragte Tastatureinstellung)</param>
    ''' <returns>aktuelle Tastatureinstellung</returns>
    Public Shared Function GetKeySetting(ByVal KeyToGet As _
      System.Windows.Forms.Keys) As Boolean
        Dim _keystate(0 To 255) As Byte
        GetKeyboardState(_keystate)
        Return CBool(_keystate(KeyToGet))
    End Function
End Class