日期:2009-07-17 浏览次数:20485 次
Private Sub WorkingSub()
Do
'Operation Here
Threading.Thread.Sleep (暂停毫秒数)
在Module里添加
Public WorkingTh As Threading.Thread
在启用线程位置写
WorkingTh = New Threading.Thread(AddressOf WorkingSub)
WorkingTh.IsBackground=True
WorkingTh.Start
在停止位置写
WorkingTh.Abort
WorkingTh=Nothing