VERSION 5.00
Begin VB.Form frmOptional 
   BackColor       =   &H00800000&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "TitanNET 2003 Self-Connect CD - Optional Components"
   ClientHeight    =   2430
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7230
   ControlBox      =   0   'False
   Icon            =   "frmOptional.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2430
   ScaleWidth      =   7230
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdFinish 
      Caption         =   "Finish Install"
      Height          =   615
      Left            =   2280
      TabIndex        =   2
      Top             =   1680
      Width           =   2775
   End
   Begin VB.CommandButton cmdAdobe 
      Caption         =   "Adobe Reader 6.0"
      Height          =   735
      Left            =   2280
      TabIndex        =   1
      ToolTipText     =   "This program allows you to View Acrobat (PDF) files along with many other Adobe file formats"
      Top             =   840
      Width           =   2775
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "All required components have been installed.  Please choose any optional componets that you wish to install."
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   7095
   End
End
Attribute VB_Name = "frmOptional"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdAdobe_Click()
    cmdAdobe.Enabled = False
    cmdAdobe.Caption = "Processing..."
    cmdAdobe.FontItalic = True
    
    Dim dummy
    dummy = Shell(CDDrive & "\adobe\AdbeRdr60_enu_full.exe", vbNormalFocus)
    
    cmdAdobe.Caption = "Already installed"
    
End Sub

Private Sub cmdFinish_Click()
    Dim response
    response = MsgBox("The installation of TitanNET is now complete and your computer is configured for use on campus." & Chr(10) & Chr(10) & "It is strongly reccomended that you visit Microsoft's Windows Update site and download all Critical Updates for your computer.  This will allow your computer to obtain optimum performance.  Press OK to visit Windows Update now.", vbInformation + vbOKCancel + vbDefaultButton2, "Congratulations")
    Dim r As clsRegistry, regTemp
            
    If response = vbOK Then 'user wants to visit windows update
        Dim dummy
        dummy = Shell(Left(SystemClass.WindowsPath, 3) & "Program Files\Internet Explorer\iexplore http://windowsupdate.microsoft.com/", vbNormalFocus)
        ProgDone
    End If

    frmPostInstall.Show
    'hide some buttons as not to confuse the user
    frmPostInstall.cmdCampus.Enabled = False
    frmPostInstall.cmdConfigureForHome.Enabled = False
    frmOptional.Hide
End Sub

Private Sub Form_Load()
    DumpStateToReg
End Sub
