作者:VB.NET开发
项目:Microsoft.VisualBasic.ApplicationService
Private Sub TestDoEvents()
For i As Integer = 0 To 10000
TextBox1.Text = i.ToString
My.Application.DoEvents()
Next
End Sub