Dim x_step As Integer '声明
Dim y_step As Integer
Dim 往左 As Integer
Dim 往右 As Integer
Dim 往上 As Integer
Dim 往下 As Integer
Dim 重复次数_step As Integer
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Private Sub Form_KeyDown(keycode As Integer, shift As Integer) '窗体接收按下任意键
'Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
'MsgBox keycode

If keycode = 37 Then
　　往左 = 1
End If

If keycode = 38 Then
　　往上 = 1
End If
　
If keycode = 39 Then
　　往右 = 1
End If

If keycode = 40 Then
　　往下 = 1
End If
　
Timer2.Enabled = True
End Sub
　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Private Sub Picture1_KeyUp(keycode As Integer, shift As Integer) '窗体接收放开任意键
　　Timer2.Enabled = False
　　往左 = 0
　　往右 = 0
　　往上 = 0
　　往下 = 0
End Sub　　　　　　　　　　　　　
Private Sub Timer2_Timer()
If 往左 = 1 Then
　　If Line1.X1 - 100 <= 0 Then
　　　　Line1.X1 = 0
　　　　Line1.X2 = 2000
　　Else
　　　　Line1.X1 = Line1.X1 - 100
　　　　Line1.X2 = Line1.X2 - 100
　　End If
End If

If 往右 = 1 Then
　　If Line1.X2 + 100 > Picture1.Width Then
　　　　Line1.X1 = Picture1.Width - 2000
　　　　Line1.X2 = Picture1.Width
　　Else
　　　　Line1.X2 = Line1.X2 + 100
　　　　Line1.X1 = Line1.X2 - 2000
　　End If
End If

If 往上 = 1 And Line1.Y1 > 1000 Then
　　Line1.Y1 = Line1.Y1 - 100
　　Line1.Y2 = Line1.Y1
End If

If 往下 = 1 And Line1.Y1 < Picture1.Height - 1000 Then
　　Line1.Y1 = Line1.Y1 + 100
　　Line1.Y2 = Line1.Y1
End If

End Sub