The Key Release Program

With this miniprogram you can check the arrow keys. When they are used and released a new information is shown.

You need a textbox to get the program going.

Once you started the program and you use an arrow key in the textbox, the content of the textbox will change.

The Code

PUBLIC SUB TextBox1_KeyRelease()
SELECT Key.code

CASE Key.left
Textbox1.Text ="Left"
CASE Key.right
Textbox1.Text ="Right"
CASE Key.up
Textbox1.Text ="Up"
CASE Key.down
Textbox1.Text ="Down"
END SELECT
END 

-- ReinerHoffmann - 31 Jan 2004

KeyRelease event does not have any parameter anymore, and you should better use Key.Left, Key.Right, Key.Up and Key.Down instead of the numeric values. -- BenoitMinisini - 05 Feb 2004

fixed now (I think ;) ) -- RobKudla - 10 Feb 2004