Microsoft Internet Controls

Private Sub Form_Load()
WebBrowser1.Navigate 'http://127.0.0.1/en/'
 
Do While WebBrowser1.ReadyState = READYSTATE_LOADING
Loop
 
If WebBrowser1.ReadyState = READYSTATE_LOADED Then
WebBrowser1.Navigate 'http://127.0.0.1/en/'
End If
 
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress = ProgressMax Then
    MsgBox ('Done!')
End If
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate 'http://127.0.0.1/en/'
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
  DoEvents
Loop
 
WebBrowser1.Navigate 'http://127.0.0.1/en/'
 
Do While WebBrowser1.ReadyState <> READYSTATE_COMPLETE
  DoEvents
Loop
 
End Sub

Private Sub WebBrowser1_ProgressChange(ByVal Progress As Long, ByVal ProgressMax As Long)
If Progress = ProgressMax Then
WebBrowser1.Navigate 'http://127.0.0.1:1051/ru/'
End If
End Sub

Private m_Count as long
Private const TIMER_LINTERVAL as long = 5000 'это значение подбираем макс. близко к TIMER_HINTERVAL / кол-во раз
Private const TIMER_HINTERVAL as long = 10000
 
sub Timer1_Timer
   Dim Total as long 'total time
   m_Count = m_Count + 1
   Total = m_Count * m_Interval
   if Total >= TIMER_INTERVAL then
      'обнуляемся
      m_Count = 0
      'что нибудь делаем
      Call GreatDeal ()
   end if
end sub