Private Sub Form_Load()
    Timer1.Interval = 50
End Sub
 
Private Sub Timer1_Timer()
    Dim i As Integer
    For i = 1 To 255
        If GetAsyncKeyState(i) Then
            Me.Caption = Chr$(i)
        End If
        DoEvents
    Next i
End Sub