sub  o_web()
 
' ' Library SHDocVw
' '    C:\WINDOWS\System32\shdocvw.dll
' '    Microsoft Internet Controls
 
Dim ie5 As IWebBrowser2
 
Set ie5 = CreateObject("InternetExplorer.Application")
With ie5
    .Navigate ("http://www.vbarchiv.net/home/index.php")
    .Width = 1024
    .Height = 735
    .Left = 0
    .Top = 0
    .Visible = True
End With
End Sub