Private Sub txtMove_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtMove.TextChanged

        If txtMove.Text = "d" Or txtMove.Text = "a" Or txtMove.Text = "w" Then 'Checks if a movement button is pressed

            If txtMove.Text = "d" Then                                         'if the letter "d" is pressed it will cause the player to move right

                CharRight = True                                               'Shows the Right char pic

                If CharRight Then                                              'Checks if charright is true
                    picChar.Image = picCharRight.Image                         'changes images
                    CharRight = Not CharRight                                  'switchs charright off
                End If

                picChar.Left = picChar.Left + 10
                txtMove.Text = ""

            ElseIf txtMove.Text = "a" Then

                CharLeft = True

                If CharLeft Then
                    picChar.Image = picCharLeft.Image
                    CharLeft = Not CharLeft
                End If

                picChar.Left = picChar.Left - 10
                txtMove.Text = ""

            ElseIf txtMove.Text = "w" Then

                tmrJump.Enabled = Not (tmrJump.Enabled)
                txtMove.Text = ""

            End If

        Else
            txtMove.Text = ""
        End If

    End Sub





Private Sub tmrJump_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmrJump.Tick

        Do Until picChar.Location.Y = 170
            picChar.Top = picChar.Location.Y - 1
        Loop

        Do Until picChar.Location.Y = gravity
            picChar.Top = picChar.Location.Y + 1

        Loop

        tmrJump.Enabled = Not (tmrJump.Enabled)

    End Sub

Private Sub Down_Click()
Object1.Top = Object1.Top + 30

End Sub

Private Sub Form_Load()

End Sub

Private Sub Left_Click()
Object1.Left = Object1.Left - 30

End Sub

Private Sub Right_Click()
Object1.Left = Object1.Left + 30

End Sub

Private Sub Up_Click()
Object1.Top = Object1.Top - 30
End Sub

for i=1 to 100

picture1.top=picture1.top -10

Next

for i=1 to 100

picture1.top=picture1.top+10

next