Киньте пожалуйста исходник браузера на языке VB или силку на него! Очень нужно!!!!11

Для начала в меню Project на панели Components на странице Controls найдите строку Microsoft Internet Controls. Отметьте эту строку флажком и щелкните Ok. В результате этих манипуляций инструмент WebBrowser появиться на вашей панели Toolbox.Пиктограмма этого инструмента похожа на изображение глобуса.

Теперь WebBrowser нужно разместить на вашей экранной форме. Т. к. его предназначение - отображать содержание Web-страниц, позаботьтесь о том, чтобы это окно в мир Интернет не было бы слишком маленьким, иначе посматривать страницы будет не очень просто, хотя, автоматически появляющиеся полосы прокрутки все равно вам позволят это сделать. Справедливо заметить, что если вы не собираетесь написать броузер, который должен составить конкуренцию, например IE, а всего лишь как средство независимой доставки пользователя вашего приложения к заинтересовавшей его страничке, тогда для его работы понадобиться написать всего одну строчку программного кода:

WebBrowser1.Navigate "http://www.любимая_страница. ru/"

Navigate - это метод, применяемый к WebBrowser. Единственным параметром этого метода является адрес той страницы Интернет, с которой начнется ваше путешествие по сети.

Для создания многофункционального броузера конечно, использование кнопок для каждого адреса - это не лучшее решение. В этом случае можно использовать комбинированное окно списка -ComboBox, где еще на этапе проектирования можно внести сколько угодно адресов в поле List (получится типа "избранное"), и корректировать их в процессе работы броузера уже в самом окне списка. Сделать это можно примерно так:
Собственно программа:
Dim Adres As String

Private Sub Command1_Click()
Dim Ind As Integer
Ind = Combo1.ListIndex
Adres = Combo1.List(Ind)
WebBrowser1.Navigate Adres
End Sub

Private Sub Command2_Click()
WebBrowser1.Stop
End Sub

Private Sub Command3_Click()
On Error Resume Next
WebBrowser1.GoBack 'В Caption этой кнопки напишите "Назад"
End Sub

Private Sub Command4_Click()
On Error Resume Next
WebBrowser1.GoForvard 'В Caption этой кнопки напишите "Вперед"
End Sub

Private Sub Command5_Click()
WebBrowser1.Refresh 'В Caption этой кнопки напишите "Обновить"
End Sub

Private Sub Command6_Click()
On Error Resume Next
WebBrowser1.GoHome 'В Caption этой кнопки напишите "Домой"
End Sub

Объяснения в источнике