多线程就是了。

多线程就是了。

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