Браузер на visual basic

1. Подключаем компонент Microsoft Internet Control, имя WB1
2. Текстовое поле с именем Text1
3. Три Label"а с исходными именами

Код:

Private Sub Form_Load()
" при загрузке, к заголовку формы будет еще подставлен текст из текстового поля
Me.Caption = Me.Caption & Text1.Text
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
" когда водим мышкой по форме, у Label1,2 и 3 цвет текста становится черным
Label1.ForeColor = &H0&
Label2.ForeColor = &H0&
Label3.ForeColor = &H0&
End Sub

Private Sub Label1_Click()
" при нажатии на Label1 происходит событие Back, т.е. загружается предыдущая страница
WB1.GoBack
End Sub

Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
" при наведении курсора на Label1, его цвет текста становится синим, а Label2 и 3 остаются черными
Label1.ForeColor = &HFF0000
Label2.ForeColor = &H0&
Label3.ForeColor = &H0&
End Sub

Private Sub Label2_MouseMove(ButtonAs Integer, Shift As Integer, X As Single, Y As Single)
" при наведении курсора на Label2, его цвет текста становится синим, а Label1 и 3 остаются черными
Label2.ForeColor = &HFF0000
Label1.ForeColor = &H0&
Label3.ForeColor = &H0&
End Sub

Private Sub Label3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
" при наведении курсора на Label3, его цвет текста становится синим, а Label2 и 1 остаются черными
Label3.ForeColor = &HFF0000
Label1.ForeColor = &H0&
Label2.ForeColor = &H0&
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
" если была нажата кнопка "ENTER", то...
If KeyCode = 13 Then
" начинаем загрузку адреса,введенного в тектовое поле Text1
WB1.Navigate Text1.Text
End If
End Sub

Private Sub Text1_MouseMove(ButtonAs Integer, Shift As Integer, X As Single, Y As Single)
" когда водим мышкой по текстовому полю, у Label1,2 и 3 цвет текста становится черным
Label1.ForeColor = &H0&
Label2.ForeColor = &H0&
Label3.ForeColor = &H0&
End Sub
 

Качайте готовый пример от сюда .