关于VB中连续执行30秒写文件的功能 谢谢

各位大侠，请教一个问题：
我希望能在VB中（vb 6.0）执行一段写文件的代码，要连续写30秒。我的代码是：
Private Sub Command1_Click()
Dim starttime As Date
starttime = Time
Do While DateDiff("s", Time, starttime) <30
     print time
   Loop
End Sub
这里我用print time代替写文件代码进行测试的。但这个象死循环似的，结束不了。
还请不吝赐教，有没有其他思路！
感谢！ VB --------------------编程问答-------------------- 我明白了，是我的 DateDiff("s", Time, starttime) 函数用错了，把它改为 
DateDiff("s",starttime, Time) 就可以了。不过还是想请大侠们提供些其他思路！
感谢！ --------------------编程问答-------------------- 'command1按钮开始，command2按钮可结束循环

Dim stoped%
Private Sub Command1_Click()
Dim starttime As Date, k&, k0&
starttime = Now: k0 = -1: stoped = 0
Do
    k = DateDiff("s", starttime, Now)
    If k <> k0 Then
        k0 = k
        Print k & " ";
        DoEvents
    End If
    If stoped <> 0 Or k >= 10 Then Print: Exit Do
Loop

MsgBox "end"
End Sub

Private Sub Command2_Click()
stoped = 1
End Sub
--------------------编程问答-------------------- 谢谢bdxzq ！您的代码中用到了DoEvents，我不太理解这个语句的作用，能详细解释一下吗？

补充：.NET技术 ,  VB.NET