Mostrar tecla pulsada

[ferbad12]

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
If My.Computer.Keyboard.CapsLock Then
MsgBox(Chr(e.KeyValue))
Else
MsgBox(Chr(e.KeyData + 32))
End If
End Sub

Probe con los que me dijiste y me anduvo Gracias