Dim ExStop As Boolean
Private Sub Command1_Click()
  Call WebBrLoadURL("http://www.i.ua/")
  Call WebBrLoadURL("http://i.ua/lang.php?id=2&_rand=1352192298")
  Call WebBrLoadURL("http://tv.i.ua/")
  Call WebBrLoadURL("http://tv.i.ua/channels/")
  Call WebBrLoadURL("http://tv.i.ua/channels/1plus1/")
  Call AnonsKanals(WebBrowser1.Document.body.innerhtml)
End Sub

Public Function WebBrLoadURL(URL As String) As Boolean
  Dim f As Long
  For f = 1 To 1000: DoEvents: Next
  TmrExit.Enabled = True: TmrExit.Interval = 10000
  ExStop = False
  WebBrowser1.Navigate2 URL
   Do Until Not (WebBrowser1.busy) And WebBrowser1.readyState = READYSTATE_COMPLETE
    DoEvents
    If ExStop Then TmrExit.Enabled = False: TmrExit.Interval = 0: WebBrowser1.Stop: Exit Function
   Loop
  TmrExit.Enabled = False: TmrExit.Interval = 0
  WebBrLoadURL = True
End Function

Private Sub TmrExit_Timer()
  ExStop = True
End Sub