要求不多的话，完全可以用按键精灵的，你用vb.net去实现的话，反而啰嗦了。。。
专注于为中小企业提供网站设计制作、网站建设服务,电脑端+手机端+微信端的三站合一,更高效的管理,为中小企业鲅鱼圈免费做网站提供优质的服务。我们立足成都，凝聚了一批互联网行业人才，有力地推动了1000多家企业的稳健成长，帮助中小企业通过网站建设实现规模扩充和转变。
//C# code
private void worker(int i)
{
if(i==1){
for(i;i=1000;i++){
//do something......
}
worker(i);
}else{
i=1000;
for(i;i=1;i--){
//do something......
}
worker(i);
}
}
worker(1);
逻辑是这样 ，楼主自己用vb写一下就行了
一般多开线程写无限循环行为。
//定义线程
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