Question

Using VB.NET, how do I toggle the state of Caps Lock?

Answer 1

From: http://www.vbforums.com/showthread.php?referrerid=61394&t=537891

Imports System.Runtime.InteropServices  Public Class Form2      Private Declare Sub keybd_event Lib 'user32' ( _         ByVal bVk As Byte, _         ByVal bScan As Byte, _         ByVal dwFlags As Integer, _         ByVal dwExtraInfo As Integer _     )     Private Const VK_CAPITAL As Integer = &H14     Private Const KEYEVENTF_EXTENDEDKEY As Integer = &H1     Private Const KEYEVENTF_KEYUP As Integer = &H2      Private Sub Button1_Click( _         ByVal sender As System.Object, _         ByVal e As System.EventArgs _     ) Handles Button1.Click          ' Toggle CapsLock          ' Simulate the Key Press         keybd_event(VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or 0, 0)          ' Simulate the Key Release         keybd_event(VK_CAPITAL, &H45, KEYEVENTF_EXTENDEDKEY Or KEYEVENTF_KEYUP, 0)     End Sub  End Class