Question

vb 小球弹跳运动，应用timer

原题：让一个红色小球每隔1秒从当前位置向下移动100缇，遇到窗体底部后再向上运动，而遇到窗体顶部有改成向下运动，直到按下命令按钮后停止运动。(需要详细，完整的步骤，寻求高手的完整回答)

Answer 1

窗体放一个shape控件，Timer控件，按钮控件：
Dim d As Boolean '方向
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Shape1.Shape = 3
Shape1.FillColor = vbRed
Shape1.FillStyle = 0
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Not d Then
If Shape1.Top < Me.ScaleHeight - Shape1.Height Then
Shape1.Top = Shape1.Top + 100
Else
d = Not d
End If
Else
If Shape1.Top > 100 Then
Shape1.Top = Shape1.Top - 100
Else
d = Not d
End If
End If
End Sub

Answer 2

窗体放一个shape控件，Timer控件，按钮控件：
Dim d As Boolean '方向
Private Sub Command1_Click()
Timer1.Enabled = False
End Sub

Private Sub Form_Load()
Shape1.Shape = 3
Shape1.FillColor = vbRed
Shape1.FillStyle = 0
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
If Not d Then
If Shape1.Top < Me.ScaleHeight - Shape1.Height Then
Shape1.Top = Shape1.Top + 100
Else
d = Not d
End If
Else
If Shape1.Top > 100 Then
Shape1.Top = Shape1.Top - 100
Else
d = Not d
End If
End If
End Sub