这个程序那里有问题，怎么运行进入了死循环？
Private SubForm_Click()
FontSize = 12
Print"现在输出第一行"
Print"等待5秒钟..."
delayloop 5
Print
Print"输出第二行"
Print"等待10秒钟"
Call delayloop(10)
Print
Print"输出第三行"
End Sub
Public Subdelayloop(delaytime)
Const secondinday =24& * 60& * 60&
loopfinish = Timer +delaytime
If loopfinish >secondsinday Then
loopfinish = loopfinish - secondinday
Do While Timer > loopfinish
Loop
End If
Do While Timer <loopfinish
Loop
End Sub

程序是　等待5和10秒钟　输出下一行　不知怎么进入长时间不出来
计时器的设置　Interval＝1000

是的修改以后就没有问题了
谢谢老师指点
下面就正确了
Private Sub Form_Click()
FontSize = 12
Print "现在输出第一行"
Print "等待5秒钟..."
delayloop 5
Print
Print "输出第二行"
Print "等待10秒钟"
Call delayloop(10)
Print
Print "输出第三行"
End Sub
Static Sub delayloop(delaytime)
Const secondinday = 24& * 60& * 60&
loopfinish = Timer + delaytime
If loopfinish > secondinday Then
loopfinish = loopfinish - secondinday
Do While Timer > loopfinish
Loop
End If
Do While Timer < loopfinish
Loop
End Sub