VERSION 5.00
Begin VB.Form frmLicenseAgreement 
   BackColor       =   &H00800000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Welcome to TitanNET Self-Connect 2003"
   ClientHeight    =   5535
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   9015
   Icon            =   "licagree.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5535
   ScaleWidth      =   9015
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdDisagree 
      Caption         =   "I &Disagree"
      Height          =   555
      Left            =   4920
      TabIndex        =   1
      Top             =   4680
      Width           =   2895
   End
   Begin VB.CommandButton cmdAgree 
      Caption         =   "I &Agree"
      Height          =   555
      Left            =   1680
      TabIndex        =   0
      Top             =   4680
      Width           =   2895
   End
   Begin VB.Label lblVersion 
      Alignment       =   1  'Right Justify
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   6720
      TabIndex        =   5
      Top             =   5280
      Width           =   2295
   End
   Begin VB.Label lblRead 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Please read the following statement carefully"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   255
      Left            =   3360
      TabIndex        =   4
      Top             =   1200
      Width           =   5535
   End
   Begin VB.Label lblLicenseAgreement 
      BackStyle       =   0  'Transparent
      Caption         =   "Apply text from the Form_Load() function"
      ForeColor       =   &H00FFFFFF&
      Height          =   3015
      Left            =   3360
      TabIndex        =   3
      Top             =   1560
      Width           =   5415
   End
   Begin VB.Label lblTitle 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "Welcome to the TitanNET Self-Installation CD 2003"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   18
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   975
      Left            =   1440
      TabIndex        =   2
      Top             =   240
      Width           =   6135
   End
   Begin VB.Image imgWCLogo 
      Height          =   3030
      Left            =   0
      Picture         =   "licagree.frx":058A
      Top             =   960
      Width           =   3330
   End
End
Attribute VB_Name = "frmLicenseAgreement"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdAgree_Click()
    Dim AOLExist As Boolean
    AOLExist = checkForAOL ' See if AOL has been found on this system
    If AOLExist = True Then
        If AOLFound = False Then  'AOL has been found for the 1st time
            frmAOL.Show 1
            AOLFound = True
            DumpStateToReg
            End
        Else     'AOL is found again
            Dim response
            response = MsgBox("AOL Has been previously been detected on this system.  It is possible that this program may still detect it even after you have uninstalled it.  Please be aware that AOL causes problems with TitanNET and if it remains installed problems may occur.  Are you sure you want to continue with the installation of TitanNET?", vbQuestion)
            If response = vbNo Then
                DumpStateToReg
                End
            End If
        End If
    End If
    frmLicenseAgreement.Hide
    frmWindowsVersionCheck.Show
End Sub

Private Sub cmdDisagree_Click()
    Dim response
    response = MsgBox("PLEASE NOTE: You must agree to the statement listed above to install this software.  If you do not agree with this statement, please close this window and remove the CD." & Chr(10) & Chr(10) & "Are you sure you want to cancel?", vbQuestion + vbYesNo + vbDefaultButton2, "TitanNET Self-Install 2003")
    If response = vbYes Then
        ProgDone
    End If
End Sub

Private Sub Form_Load()
    lblLicenseAgreement.Caption = "I understand that this is a self-connection process and that Westminster College provides no additional support during the installation of software using this CD." & Chr(10) & Chr(10) & "Furthermore, I am aware that the College's vendor or other sources including students may be hired at my expense to complete the installation should difficulties arise." & Chr(10) & Chr(10) & "I also understand that to obtain full functionality I must install all required components on this CD and follow all instructions.  Failure to follow the instructions may cause less than desireable effects.  Said effects are not the responsibility of Westminster College, its staff, or the Information Systems department."
    
    'Display the current version
    lblVersion.Caption = "v. " & App.Major & "." & App.Minor & "." & App.Revision
End Sub

