Keyevent problem

Hej.. jeg forstår ikke hvorfor der ikke sker noget her..?
jeg har lavet en form med en tekstbox og en label, i koden som vb.net har genereret er tekstboxen WithEvents.. mangler jeg noget?


Private Sub frmTjekInOut_Keydown(ByVal KeyCode As Integer, ByVal Shift As Integer)
        LblInfo.Text = "Event"
        Me.Update()
    End Sub