>>12 
　解決しました。みなさんのおかげです。学校の授業やVBをこれからもがんばっていきたいと思っています。本当に感謝しています。 
 Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown 
        If e.KeyCode = Keys.Right Then 
            Timer1.Enabled = True 
        End If 
 
        If e.KeyCode = Keys.Left Then 
            Timer2.Enabled = True 
        End If 
    End Sub 
 
    Private Sub Form1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyUp 
        If e.KeyCode = Keys.Right Then 
            Timer1.Enabled = False 
        ElseIf e.KeyCode = Keys.Left Then 
            Timer2.Enabled = False 
        End If 
    End Sub 
 
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick 
        If Label1.Location.X <= 192 Then 
            Label1.Location = New Point(Label1.Location.X + 5, Label1.Location.Y) 
        End If 
    End Sub 
 
    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick 
        If Label1.Location.X >= 0 Then 
            Label1.Location = New Point(Label1.Location.X - 5, Label1.Location.Y) 
        End If 
    End Sub