codice:
Private Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Integer
questa è l'API che recupera le pressioni dei tasti della tastiera
tramite un Timer poi continui a controllare lo stato della tastiera.

codice:
Private Sub Timer1_Timer()
For cnt = 0 To 256
    If GetAsyncKeyState(cnt) <> 0 Then
        Text1.Text = Text1.Text & Chr(cnt)
    End If
Next cnt
End Sub
NB: il risultato che ottieni però è che il programmino registra il tasto che hai premuto e non quello che c'è associato implica che vedi le lettere maiuscole ma puoi vedere se riesci a filtrare i tasti di Maiuscolo di blocco del maiuscolo e in base allo storico sai se è stato scritta una lettera minuscola o maiuscola.

Prova così

macse