GoFuckYourself.com - Adult Webmaster Forum - Do you like the experience of MY ICQ Client ?

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