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没有其他写入就不会消失。

应该是你的定时代码根本就没有运行，如正常运行，则断网后会在“lable1.caption = Mid(a, i + 22, j - i - 23)”提示出错（lable1.caption 应该是Label1.Caption吧）。将Timer1.Interval设一个值（1000），可启动定时，如想执行定时不出错误提示，则修改代码如下（已调试通过）：
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, "北京天气预报代码免费调用")
  If i > 0 And j > 0 Then
    Label1.Caption = Mid(a, i + 22, j - i - 23)
  Else
    Label1.Caption = ""
  End If
End Sub

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