Hjælp til tjek af KeyInput.

Jeg er forsjovt ved at se på noget program, a'la WhatPulse.
Jeg vil ligesom i WP kunne gemme hvor mange taster jeg trykker på.
Jeg har nu en Timer med følgende kode:
(globalt:
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer 'used in CmdApi_click
Private Declare Function MapVirtualKey Lib "user32" Alias "MapVirtualKeyA" (ByVal wCode As Long, ByVal wMapType As Long) As Long
)


##########Timer:
Dim Keys As Byte

    DoEvents
    For vKey = 0 To 255
        Rc = GetAsyncKeyState(vKey)
       
        If (Rc = -32767 And a <> 1) Then
       
            Label3.Caption = vKey
            Label4.Caption = Label4.Caption + 1
        End If
       
    Next vKey
##########

Den skriver den tastede knap ud i Label3, og antal tryk i label4.
Problemet med denne kode, er at man bare kan holde tasten nede, og så bliver Label4 ved med at stige.

Hvordan kan jeg undgå det?
Den skal kunne tjekke at man slipper tasten, og trykker den ned igen, før den pludser en mere på Label4.