''给考生的程序
'Private Sub C1_Click()
''    Timer1.Enabled = ?
'End Sub
'Private Sub Timer1_Timer()
'    Static a%
'    a = a + 1
''    If P1.Top > P2.Top + P2.? Then
'        P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height
'    Else
''        Timer1.? = False
'    End If
'End Sub