Codenstuff.com

    <DllImport("user32.dll")> Shared Function GetAsyncKeyState(ByVal vKey As Integer) As Short
    End Function

    Private Sub btnCheck_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCheck.Click
        Dim res As Short = GetAsyncKeyState(Keys.LShiftKey)
        If res = -32767 Then
            MsgBox("Left shift is down")
        End If

    End Sub

If e.Shift = True And e.keycode = keys.A Then

Imports System.Runtime.InteropServices
Public Class Form1
    Private WithEvents keyboard As New KeyboardHook
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Dim shift As Boolean
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        RichTextBox1.Text = TextBox1.Text
    End Sub

    Private Sub keyboard_KeyDown(ByVal Key As System.Windows.Forms.Keys) Handles keyboard.KeyDown
        
        If Key = Keys.Space Then
            TextBox1.AppendText(" ")
        End If
        If Key = Keys.Enter Then
            TextBox1.AppendText(vbNewLine)
        End If
    End Sub
End Class