Авто обновление собственного браузера

Dim zapros As String
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
zapros = "yandex.ru/yandsearch?text=" + Text1.Text //Формируем запрос
WB.Navigate zapros //Переходим по адресу
End If
End Sub

Dim zapros As String
Private Sub Form_Load()
zapros = "http://www.youtube.com/"
WB.Navigate zapros
End Sub
 
Private Sub Timer1_Timer()
Timer1.Interval = 0
End Sub
 
Public Sub wait(seconds)
Timer1.Enabled = True
Timer1.Interval = 1000 * seconds
While Timer1.Interval > 0
DoEvents
Wend
Timer1.Enabled = False
End Sub
 
Private Sub Command1_Click()
Command1.Enabled = False
Dim A As Integer
A = Val(Text1.Text)
Do While True
SendKeys "{F5}"
wait (A)
Loop
End Sub

Dim zapros As String
 
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000                ' тут какой надо, или брать с TextBox
zapros = "http://www.youtube.com/"    ' тут какой надо, или брать с TextBox
End Sub
 
Private Sub Timer1_Timer()
WebBrowser1.Navigate zapros
Do
DoEvents
Loop While WebBrowser1.Busy
End Sub

zapros = Text1.Text

WebBrowser1.Navigate = Text1.Text

Dim zapros As String

Dim zapros As String
 
Private Sub Command1_Click()
Timer1.Enabled = Not Timer1.Enabled
End Sub
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 1000                ' ??? ????? ????, ??? ????? ? TextBox
zapros = Text1.Text     ' ??? ????? ????, ??? ????? ? TextBox
End Sub
 
Private Sub Timer1_Timer()
WebBrowser1.Navigate zapros
Do
DoEvents
Loop While WebBrowser1.Busy
End Sub

"http://www.youtube.com/"

text1.text

zapros = Text1.Text