1.你先要在 Form 上放一个 Timer 控制项

2.在 Timer 属性伫设定 interval 的数值,一秒是 1000,十分之一秒就是 100,这样

会算吧。再确定 Timer.enabled=true

3.在 Timer 惟一事件伫这样写

Private Sub Timer1_Timer()

开始你的 Ping

if 你的 Ping 程式连通 then

显示绿灯图

else

显示红灯图

end if

End Sub

4.这样 Timer 就会依你在 interval 属性伫的时间设定,固定去执行 Ping 程式。