重新启动。vbnetfor循环占用cpu问题只要重新启动就可以了。VBNET是一种简单，现代，面向对象的计算机编程语言，它由微软开发，将NETFramework和公共语言运行库的强大功能相结合。
成都创新互联公司专业为企业提供乌拉特后网站建设、乌拉特后做网站、乌拉特后网站设计、乌拉特后网站制作等企业网站建设、网页设计与制作、乌拉特后企业网站模板建站服务，10多年乌拉特后做网站经验，不只是建网站，更提供有价值的思路和整体网络服务。
首先这个要看的子函数执行的情况了，比如你子函数要8秒才能执行完成，你1秒钟执行一次，到时会有好几个子函数在运行，肯定会影响程序运行的。你要调整时间才能让子函数不影响主程序；
再一个，如果不想影响主程序，你可以再建一个程序，专门用来执行子函数，然后让那个程序用定时器每秒执行一次子函数，这样就不会影响主程序；
dim i
for i=2 to 1
msgbox("*")
next
语法没问题，这应该在winform里面能够调试成功，显示运行框，但是在web application里面就不能出现弹出信息框了，在网页上要出现，建议用response.write("scriptalert（'***'）/script").
for i=100 to 1 这样的语句在VB9.0后是支持的。楼下的，不要天天抱着VB6啃。
要求不多的话，完全可以用按键精灵的，你用vb.net去实现的话，反而啰嗦了。。。
我写了一段代码，注意你读取的方法，我改进了一下 Imports System.IO ‘代码窗体的最上端一定要声明
Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sr As StreamReader Dim TextBox As Control
Dim i As Integer
i = 1
For Each TextBox In Me.Controls
If TypeName(TextBox) = "TextBox" Then sr = New StreamReader("c:\save\" i ".ini", System.Text.Encoding.Default) ’注意选择编码方式，按你原来的方法，未设置编码，显示的是乱码！路径请按你的情况改！ TextBox.Text = sr.ReadToEnd()
i += 1 End If
Next
MsgBox("已经载入" i - 1 "个文件") End Sub注意：这样的代码是倒序的，第一个文本框显示的是最后一个文件的内容！请酌情处理！
一般多开线程写无限循环行为。
//定义线程
Dim th As New Threading.Thread(New Threading.ParameterizedThreadStart(AddressOf test))
th.Start("aaa")//开始线程，可以传参
//线程执行函数
Public Sub test(ob As Object)
While True
Console.WriteLine("线程正在运行中" ob)
Threading.Thread.Sleep(1000)
End While
End Sub
