Hi
try this code
The beep, signals that the Keyboard Buffer is full. This happen when the keystrokes arrives faster than they leave. In the above code, all the possible codes are tested, even if there are more than one, the second parameter says how much keys were detected in each loop.
Juan
try this code
While Not KeyHit(1) Cls KeyList$="" KeyCount=0 For i = 1 To 255 If KeyDown(i) Then KeyList$ = KeyList$ + i +", " KeyCount = KeyCount + 1 End If Next Text 10,10,KeyList Text 10,30,KeyCount Flip Wend End
The beep, signals that the Keyboard Buffer is full. This happen when the keystrokes arrives faster than they leave. In the above code, all the possible codes are tested, even if there are more than one, the second parameter says how much keys were detected in each loop.
Juan