Если речь идет о Internet Explorerе тогда так:
Добавь в проект …Reference>>Microsoft Internet Controls
Объяви переменную
| Код | Private mB As ShellWindows
Private mI As InternetExplorer
Private Sub Form_Load()
Set mB = New ShellWindows ‘Удобен при работе с кучей окон (и не только твоих)
Set mA = New InternetExplorer ‘Сам экземпляр IE
Me.Caption = mB.Count ‘- вернет счетчик всех открытых браузеров (IE)
mB.Item(1).Visible = True
mA.Visible = True ‘Тоже что и выше
mA.Navigate "http://forum.vingrad.ru" ‘Откроет указанный адрес
Me.Caption = mA.LocationURL ‘Тут можно взглянуть на текущий адрес
End Sub |
Вроде так |
((