Motion control in VB

1

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 is the obstacles, this always worked to move the label but now that I finished the rest of the project, when I enter the form of the game the label no longer moves ... (nor did I change anything in the form beyond by one:

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

    FormBorderStyle = FormBorderStyle.SizableToolWindow

End Sub

I've tried it and nothing)

Does anyone know what the error might be?

    
asked by anonymous 04.03.2017 / 23:05

0 answers