Motion control in VB

Question

This is the movement code:

Private Sub Form5_KeyDown(sender As Object, e As KeyEventArgs) Handles MyBase.KeyDown
    If e.KeyCode = Keys.W Then
        Label46.Top = Label46.Top - 6

    End If

    If e.KeyCode = Keys.A Then
        Label46.Left = Label46.Left - 6

    End If

    If e.KeyCode = Keys.S Then
        Label46.Top = Label46.Top + 6

    End If

    If e.KeyCode = Keys.D Then
        Label46.Left = Label46.Left + 6

    End If

The rest of the form are the obstacles, this has always worked to move the label but now that I have finished the rest of the project, when I enter the form of the game the label no longer moves...(and nor have I changed anything in the form but by one:

Private Sub Form5_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    FormBorderStyle = FormBorderStyle.SizableToolWindow

End Sub

I’ve tried taking and nothing)

Does anyone know what the mistake might be?