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