添加代碼：
Dim n As Integer, m As Integer
Private Sub Form_Load()
Timer1.Interval = 1000
Shape1.Shape = 3
n = Shape1.Left
m = Shape1.Top
End Sub
Private Sub Timer1_Timer()
Shape1.Left = Shape1.Left + 200
Shape1.Top = Shape1.Top - 100
If Shape1.Left >= Form1.Width Or Shape1.Top <= 0 Then
Shape1.Left = n
Shape1.Top = m
End If
End Sub