参考答案

''正确程序
Private Sub C1_Click()
    Timer1.Enabled = True
End Sub
Private Sub Timer1_Timer()
    Static a%
    a = a + 1
    If P1.Top > P2.Top + P2.Height Then
        P1.Move P1.Left, P1.Top - 5 - a, P1.Width, P1.Height
    Else
        Timer1.Enabled = False
    End If
End Sub
'答案：
'True  或  非0数值
'Height
'Enabled