frmadmin.frm

Online Telephone Directory in Visual Basic

VERSION 5.00
Begin VB.Form Form3 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Form3"
   ClientHeight    =   3090
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4680
   LinkTopic       =   "Form3"
   ScaleHeight     =   3090
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VB.Frame Frame1 
      BackColor       =   &H00800000&
      BorderStyle     =   0  'None
      Height          =   2295
      Left            =   0
      TabIndex        =   0
      Top             =   0
      Width           =   15255
      Begin VB.Label Label12 
         Alignment       =   2  'Center
         BackColor       =   &H000000FF&
         Caption         =   "HOME PAGE"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   8160
         TabIndex        =   5
         Top             =   720
         Width           =   3930
      End
      Begin VB.Label Label10 
         BackColor       =   &H0000FFFF&
         Caption         =   "YELLOW PAGES"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00C00000&
         Height          =   300
         Left            =   4320
         TabIndex        =   4
         Top             =   720
         Width           =   3810
      End
      Begin VB.Label Label7 
         BackColor       =   &H00FF8080&
         Caption         =   "SUBSCRIBER Details"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   11040
         TabIndex        =   3
         Top             =   120
         Width           =   3930
      End
      Begin VB.Label Label4 
         BackColor       =   &H008080FF&
         Caption         =   "ISD Details"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   8160
         TabIndex        =   2
         Top             =   120
         Width           =   2850
      End
      Begin VB.Label Label1 
         BackColor       =   &H00FF8080&
         Caption         =   "STD Details"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   700
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H00FFFFFF&
         Height          =   300
         Left            =   4320
         TabIndex        =   1
         Top             =   120
         Width           =   3810
      End
      Begin VB.Image Image1 
         Height          =   2625
         Left            =   360
         Picture         =   "FrmAdmin.frx":0000
         Top             =   -360
         Width           =   2355
      End
   End
   Begin VB.Image Image2 
      Height          =   6750
      Left            =   3360
      Picture         =   "FrmAdmin.frx":1266
      Top             =   2880
      Width           =   9000
   End
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Label1_Click()
Form4.Show
End Sub

Private Sub Label10_Click()
Form16.Show
End Sub

Private Sub Label12_Click()
Unload Me
Form1.Show
End Sub

Private Sub Label4_Click()

Form10.Show
End Sub

Private Sub Label7_Click()

Form14.Show
End Sub