<DllImport("user32.dll", CallingConvention:=CallingConvention.StdCall, _
           CharSet:=CharSet.Unicode, EntryPoint:="keybd_event", _
           ExactSpelling:=True, SetLastError:=True)> _
    Public Shared Function keybd_event(ByVal bVk As Byte, ByVal _
      bScan As Byte, ByVal dwFlags As UInteger, ByVal dwExtraInfo As UIntPtr) _
      As Boolean
    End Function
 
    Private Const VK_CAPITAL As Byte = &H14
    Private Const KEYEVENTF_KEYUP As Byte = &H2