frmwel.frm

Online Telephone Directory in Visual Basic

VERSION 5.00
Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "SHDOCVW.dll"
Begin VB.Form Form1 
   BackColor       =   &H00000000&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   10155
   ClientLeft      =   120
   ClientTop       =   795
   ClientWidth     =   14055
   LinkTopic       =   "Form1"
   ScaleHeight     =   10155
   ScaleWidth      =   14055
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Timer Timer1 
      Interval        =   200
      Left            =   8520
      Top             =   1440
   End
   Begin VB.Frame Frame1 
      BackColor       =   &H00FFFFFF&
      BorderStyle     =   0  'None
      Height          =   11775
      Left            =   10200
      TabIndex        =   0
      Top             =   0
      Width           =   5055
      Begin VB.Image Image3 
         Height          =   6660
         Left            =   0
         Picture         =   "FrmWel.frx":0000
         Top             =   2280
         Width           =   5250
      End
      Begin VB.Image Image2 
         Height          =   1410
         Left            =   600
         Picture         =   "FrmWel.frx":40FB
         Top             =   9120
         Width           =   3975
      End
      Begin VB.Image Image1 
         Height          =   2100
         Left            =   1440
         Picture         =   "FrmWel.frx":6B18
         Top             =   120
         Width           =   2520
      End
   End
   Begin SHDocVwCtl.WebBrowser WebBrowser1 
      Height          =   4815
      Left            =   0
      TabIndex        =   10
      Top             =   6960
      Width           =   10575
      ExtentX         =   18653
      ExtentY         =   8493
      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        =   "http:///"
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H0000FF00&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Height          =   255
      Index           =   6
      Left            =   240
      Shape           =   3  'Circle
      Top             =   4920
      Width           =   375
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "View all Subscribers Details"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Index           =   8
      Left            =   720
      MouseIcon       =   "FrmWel.frx":17EFA
      MousePointer    =   99  'Custom
      TabIndex        =   12
      Top             =   4920
      Width           =   2805
   End
   Begin VB.Label Label10 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Administrator"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000C0&
      Height          =   360
      Left            =   7200
      MouseIcon       =   "FrmWel.frx":18204
      MousePointer    =   99  'Custom
      TabIndex        =   11
      Top             =   5400
      Width           =   1860
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "The History of Telephone"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Index           =   6
      Left            =   720
      MouseIcon       =   "FrmWel.frx":1850E
      MousePointer    =   99  'Custom
      TabIndex        =   9
      Top             =   5520
      Width           =   2565
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "Exit"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Index           =   7
      Left            =   720
      MouseIcon       =   "FrmWel.frx":18818
      MousePointer    =   99  'Custom
      TabIndex        =   8
      Top             =   6120
      Width           =   405
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H0000FF00&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Height          =   255
      Index           =   7
      Left            =   240
      Shape           =   3  'Circle
      Top             =   5520
      Width           =   375
   End
   Begin VB.Shape Shape1 
      BackColor       =   &H0000FF00&
      BackStyle       =   1  'Opaque
      BorderColor     =   &H00FFFFFF&
      BorderWidth     =   2
      Height          =   255
      Index           =   8
      Left            =   240
      Shape           =   3  'Circle
      Top             =   6120
      Width           =   375
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "View all STD Codes "
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Index           =   4
      Left            =   720
      MouseIcon       =   "FrmWel.frx":18B22
      MousePointer    =   99  'Custom
      TabIndex        =   7
      Top             =   3840
      Width           =   2070
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "View all I S D Codes"
      BeginProperty Font 
         Name            =   "Times New Roman"
         Size            =   12
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   285
      Index           =   5
      Left            =   720
      MouseIcon       =   "FrmWel.frx":18E2C
      MousePointer    =   99  'Custom
      TabIndex        =   6
      Top             =   4410
      Width           =   2070
   End
   Begin VB.Shape Shape1