日期:2009-07-17  浏览次数:20485 次

Private Sub WorkingSub()
  Do
    'Operation Here
    Threading.Thread.Sleep (暂停毫秒数)


  Loop
End Sub

在Module里添加
Public WorkingTh As Threading.Thread

在启用线程位置写
WorkingTh = New Threading.Thread(AddressOf WorkingSub)
WorkingTh.IsBackground=True
WorkingTh.Start

在停止位置写
WorkingTh.Abort
WorkingTh=Nothing