If Shape1.Top < 0 Then
        Shape1.Top = 0
        y_step = -y_step
    End If
    
    If Shape1.Left < 0 Then
        Shape1.Left = 0
        x_step = -x_step
    End If
    
    If Shape1.Left > Picture1.Width - Shape1.Width Then
        Shape1.Left = Picture1.Width - Shape1.Width
        x_step = -x_step
    End If

Private Sub Picture1_KeyDown(KeyCode As Integer, Shift As Integer)
‘触发Picture1对象的键盘按下事件，返回键盘的扫描码
‘keycode 37 = Left
‘KeyCode 38 = Up
‘KeyCode 39 = Right
‘KeyCode 40 = Down
    If KeyCode = 37 Then
        If Line1.X1 < 0 Then
            Line1.X1 = 0
            Line1.X2 = 1000
        Else
            Line1.X1 = Line1.X1 - degree
            Line1.X2 = Line1.X2 - degree
        End If
    End If
    If KeyCode = 39 Then
        If Line1.X2 > Picture1.Width Then
            Line1.X1 = 5000
            Line1.X2 = 6000
        Else
            Line1.X1 = Line1.X1 + degree
            Line1.X2 = Line1.X2 + degree
        End If
    End If
End Sub

If Line1.X1 < 0 Then
   Line1.X1 = 0
   Line1.X2 = 1000

If Line1.X2 > Picture1.Width Then
   Line1.X1 = 5000
   Line1.X2 = 6000

    ‘接住小球，小球反弹
    ‘判断接住小球的情况
    ‘小球反弹的运动轨迹
    If Shape1.Left + 150 >= Line1.X1 And Shape1.Left + 150 <= Line1.X2 And Shape1.Top >= Line1.Y1 - Shape1.Height Then
        Shape1.Top = Line1.Y1 - Shape1.Height
        y_step = -y_step * 1.01
        x_step = x_step * 1.01
        Label2.Caption = Str(Val(Label2.Caption) + 1)
        If zgf < Val(Label2.Caption) Then
            zgf = Val(Label2.Caption)
        End If
    End If