Private Sub Timer1_Timer()
  Static TimeRefresh As Double
 
  If TimeRefresh = 0 Or TimeRefresh < Now Then
    TimeRefresh = Date + TimeSerial(Hour(Now) + 1, Minute(Now), Second(Now))
    WebBrowser1.Refresh
  End If
End Sub

_______________________________________________________________
Jeder Mensch ist anders. Darum nimm jeden Menschen so wie er ist.