Private Sub Timer1_Timer()
  Dim a As String, i As Integer, j As Integer
  a = Inet1.OpenURL("http://tianqi., icString)
  i = InStr(a, "description")
  j = InStr(a, "北京天气预报代码免费调用")
  lable1.caption = Mid(a, i + 22, j - i - 23)
End Sub
在软件正常显示天气后，我人为短掉网络，可是怎么lable1.caption还是在显示有天气预报，我想让他在突然断网后显示为零  或者没有数据。谢谢！

不行哦  我都是 过了自动不会消除，奇怪的是  有定时刷新都不消除，不知道是不是lable1.caption没有其他写入就不会消失。

Timer1_Timer  我是设置了1000的，只是没有作判断，
谢谢版主