例10.17.bas

一本学习Visual Basic编程的好书

Attribute VB_Name = "Module1"
Private Sub MAIN()     '进入“闲置循环”
    Form1.Show
    Do While True
        x = DoEvents   '把控制权交给系统去处理所发生的事件
                       '否则死循环，即不能处理其他事件
        Form1.Text1.Text = Time
    Loop
End Sub