输出打印的问题

代码：
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
Private Sub Form_Click()
FontSize = 12
Print "现在输出第一行..."
Print "等待5秒钟..."
delayloop 5
Print
Print "输出第二行"
End Sub
功能：先输出："现在输出第一行..."
再输出："等待5秒钟..."
等5秒
输出"输出第二行"

现在有个问题：
我感觉：Print "现在输出第一行..."
Print "等待5秒钟..."
我感觉这两行几乎同时输出。
可是不然。
Print "等待5秒钟..."
Print "输出第二行"
事实这两行同时输出。
请问高手，怎么回事？谢谢！