MoveGuy_NoDelay

Public Class Form1
    Public pressingLeft As Boolean
    Public pressingRight As Boolean
    Public pressingUp As Boolean
    Public pressingDown As Boolean

    Private Sub Form1_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.KeyCode = Keys.Right Then
            pressingRight = True
        ElseIf e.KeyCode = Keys.Left Then
            pressingLeft = True
        ElseIf e.KeyCode = Keys.Up Then
            pressingUp = True
        ElseIf e.KeyCode = Keys.Down Then
            pressingDown = True
        End If
    End Sub

    Private Sub Form1_KeyUp(sender As Object, e As KeyEventArgs) Handles Me.KeyUp
        If e.KeyCode = Keys.Right Then
            pressingRight = False
        ElseIf e.KeyCode = Keys.Left Then
            pressingLeft = False
        ElseIf e.KeyCode = Keys.Up Then
            pressingUp = False
        ElseIf e.KeyCode = Keys.Down Then
            pressingDown = False
        End If
    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles tmrMoveGuy.Tick
        If pressingRight = True Then
            picMario.Left = picMario.Left + 10
            picMario.Image = My.Resources.marioRight
        ElseIf pressingleft = True Then
            picMario.Left = picMario.Left - 10
            picMario.Image = My.Resources.marioLeft
        ElseIf pressingup = True Then
            picMario.Top = picMario.Top - 10
            picMario.Image = My.Resources.marioUp
        ElseIf pressingdown = True Then
            picMario.Top = picMario.Top + 10
            picMario.Image = My.Resources.marioDown
        End If

    End Sub

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

    End Sub
End Class