Dynamically adding a keypress event handler

programming
1

I’m new to VB and trying to add a Key(Down? Press?) Handler to a dynamicly created textbox. The error I get is “‘KeyDown’ is not an event of ‘Object’”. How do I fix this?

Here are the relevant parts of my code:

Public Class main
    Structure square
        Dim box As TextBox
        Dim guessedVal As Integer
        Dim correctVal As Integer
    End Structure
    Dim squareArray(9, 9)
    Private Sub init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To 8
            For j As Integer = 0 To 8
                squareArray(i, j) = New square()
                AddHandler squareArray(i, j).box.keyDown, AddressOf KeyHandler
            Next
        Next
    Private Sub KeyHandler(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs)
        Select Case sender
            Case Asc("0") To Asc("9")
            Case Else
                sender = 0
        End Select
    End Sub
End Class