你可以在timer前用if判断网络状态，
创新互联是一家专业提供任丘企业网站建设,专注与网站设计、成都网站建设、H5技术、小程序制作等业务。10年已为任丘众多企业、政府机构等服务。创新互联专业网站建设公司优惠进行中。
如断开，可用
threading.Thread.Sleep（10000） ‘当前线程挂起10秒
’可以开一个新线程去读取脱机数据。
如连接，则继续执行。
补充：
dim i as integer
'超过100次退出，避免死循环
for i=0 to 100
try
'ping你的端口
if ‘ok
exit for
else
threading.Thread.Sleep（10000） ‘当前线程挂起10秒
end
Catch ex As Exception
End Try
next
用time控件啊，获取threadstate后，按指定时间间隔规定向界面刷新，线程必须是全局变量
用一个有退出条件的无限循环的sub也行。
线程开始就触发该过程，用无限循环来刷新状态，线程完成即退出无限循环。局部变量的线程也可以用这种方式。
不过用法要正确，否则会出问题。
我给你一个简单的思路：
1，定义5个公共布尔变量，用来记录5个线程的执行情况
2，线程开始变量赋值假，执行完毕或者异常退出赋值真
3，一直用一个定时器扫描5个公共布尔变量----------随时知道状态