[Erel]

Sorry you can't do it with a textbox.
Try this:
obj is an Object, eventKey... is Events.

Sub App_Start
    Form1.Show
    obj.New1(false)
    obj.FromControl("form1")
    obj.SetProperty("KeyPreview",true)
    eventKeyDown.New1(obj.Value,"KeyDown")
    eventKeyUp.New1(obj.Value,"KeyUp")
End Sub

Sub eventKeyDown_NewEvent
    obj.Value = eventKeyDown.Data
    form1.Text = obj.GetProperty("KeyCode") & " is down"
End Sub

Sub eventKeyUp_NewEvent
    form1.Text = "Key Up"
End Sub