Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
If KeyCode = 37 Then
Timerd.Enabled = False: Timera.Enabled = False: Timers.Enabled = False: Timerw.Enabled = False: Timera.Enabled = True
ElseIf KeyCode = 38 Then
Timerd.Enabled = False: Timera.Enabled = False: Timers.Enabled = False: Timerw.Enabled = False: Timerw.Enabled = True
ElseIf KeyCode = 39 Then
Timerd.Enabled = False: Timera.Enabled = False: Timers.Enabled = False: Timerw.Enabled = False: Timerd.Enabled = True
ElseIf KeyCode = 40 Then
Timerd.Enabled = False: Timera.Enabled = False: Timers.Enabled = False: Timerw.Enabled = False: Timers.Enabled = True
End If
End Sub
Private Sub Form_Load()
Timera.Enabled = False: Timers.Enabled = False: Timerd.Enabled = False: Timerw.Enabled = False
End Sub
Private Sub Timera_Timer()
Picture1.Left = Picture1.Left - 10
End Sub
Private Sub Timerd_Timer()
Picture1.Left = Picture1.Left + 10
End Sub
Private Sub Timers_Timer()
Picture1.Top = Picture1.Top + 10
End Sub
Private Sub Timerw_Timer()
Picture1.Top = Picture1.Top - 10
End Sub

是不是要在Form_Load里面写一句让它接受键盘输入，忘记了

哦我试试

好恐怖的代码

代码问题很大，一般是在KeyDown时处理Timer为True，以便在KeyUp时还原Timer。现在是当方向键按一次PictureBox就移动，而且没有停止的代码会一直移动，也没有边界检测，移到屏幕外都是可以的

那么多计时器控件

一个程序中，仅需要一个计时器控件足够了。

好多计时器，好恐怖的代码😱

贪吃蛇？我自己写了一个，看看我的贴