Capslock on with SendKeys("{CAPSLOCK}") is not Working

Which operating system are you using?

I found this note on msdn -

"The SendKeys class has been updated for the .NET Framework 3.0 to enable its use in applications that run on Windows Vista. The enhanced security of Windows Vista (known as User Account Control or UAC) prevents the previous implementation from working as expected.

The SendKeys class is susceptible to timing issues, which some developers have had to work around. The updated implementation is still susceptible to timing issues, but is slightly faster and may require changes to the workarounds. The SendKeys class tries to use the previous implementation first, and if that fails, uses the new implementation. As a result, the SendKeys class may behave differently on different operating systems. Additionally, when the SendKeys class uses the new implementation, the SendWait method will not wait for messages to be processed when they are sent to another process."

And this -

"in a form called Form1 containing a button called Button1. The button's tab index property should be set to 0. When the sample is running, double-click the form to trigger the button's click event using SendKeys.Send."

Maybe these two notes can act as pointers to you.

Imports System.Runtime.InteropServices

<DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", ExactSpelling:=True, SetLastError:=True)> _
    Private Shared Function keybd_event(ByVal bVk As Int32, ByVal bScan As Int32, _
               ByVal dwFlags As Int32, ByVal dwExtraInfo As Int32) As Boolean
    End Function

    <DllImport("user32.dll", SetLastError:=True, CharSet:=CharSet.Unicode)> _
    Private Shared Function GetKeyState(ByVal nVirtKey As Integer) As Short
    End Function

    Private Sub SetCapsLockKey(ByVal newState As Boolean)
        ' if the current state must be changed
        If CBool(GetKeyState(Keys.CapsLock)) <> newState Then
            ' programmatically press and release the CapsLock key
            keybd_event(Keys.CapsLock, 0, 0, 0)
            keybd_event(Keys.CapsLock, 0, &H2, 0)
        End If
    End Sub

VB6 contained many ugly things that were removed in VB.NET. Every bit of documentation I can find on using this to control the caps lock, is for VB6, or VBScript. It doesn't seem to be supported in VB.NET.

This method is documented in MSDN I dont usually program with VB.Net but do tell if it works

Dim ProcID As Integer
ProcID = Shell("Notepad.exe", AppWinStyle.NormalFocus)
AppActivate(ProcID)
My.Computer.Keyboard.SendKeys("{CAPSLOCK}hello")

When I ran that, the "hello" was typed into Notepad in uppercase. Perhaps CAPSLOCK is only on during that SendKeys and then gets turned off at the end of the function call?