Code:
VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll"
Begin VB.Form Form1
ClientHeight = 10140
ClientLeft = 60
ClientTop = 450
ClientWidth = 4680
Icon = "Form1.frx":0000
LinkTopic = "Form1"
ScaleHeight = 10140
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin SHDocVwCtl.WebBrowser a
Height = 10650
Left = 0
TabIndex = 0
Top = 0
Width = 4800
ExtentX = 8467
ExtentY = 18785
ViewMode = 0
Offline = 0
Silent = 0
RegisterAsBrowser= 0
RegisterAsDropTarget= 1
AutoArrange = 0 'False
NoClientEdge = 0 'False
AlignLeft = 0 'False
NoWebView = 0 'False
HideFileNames = 0 'False
SingleClick = 0 'False
SingleSelection = 0 'False
NoFolders = 0 'False
Transparent = 0 'False
ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}"
Location = ""
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
a.Navigate ("http://c.icq.com/webicq/banias/gb/icq/410/WidgetMain.html")
End Sub
Private Sub Form_Resize()
a.Width = Form1.Width
a.Height = Form1.Height
End Sub