VERSION 5.00
Begin VB.Form frmPostInstall 
   BackColor       =   &H00800000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "TitanNET 2003"
   ClientHeight    =   5055
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6690
   Icon            =   "postinstall.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   5055
   ScaleWidth      =   6690
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdHelp 
      Caption         =   "Help"
      Height          =   375
      Left            =   2520
      TabIndex        =   6
      Top             =   4560
      Width           =   1335
   End
   Begin VB.CommandButton cmdHelpMe 
      Caption         =   "Click &here to fill out the online connect form"
      Height          =   1095
      Left            =   2520
      TabIndex        =   5
      Top             =   2880
      Width           =   1935
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "Re-&run the CD from start"
      Height          =   1095
      Left            =   4560
      TabIndex        =   4
      Top             =   2880
      Width           =   1935
   End
   Begin VB.CommandButton cmdExit 
      Caption         =   "E&xit"
      Height          =   375
      Left            =   5280
      TabIndex        =   3
      Top             =   4560
      Width           =   1335
   End
   Begin VB.CommandButton cmdConfigureForHome 
      Caption         =   "Configure PC for &Home Internet use"
      Height          =   1095
      Left            =   4560
      TabIndex        =   1
      Top             =   1440
      Width           =   1935
   End
   Begin VB.CommandButton cmdCampus 
      Caption         =   "Configure PC for use on &Campus"
      Height          =   1095
      Left            =   2520
      TabIndex        =   0
      Top             =   1440
      Width           =   1935
   End
   Begin VB.Image lblOldMain 
      Height          =   4845
      Left            =   120
      Picture         =   "postinstall.frx":058A
      Top             =   120
      Width           =   2220
   End
   Begin VB.Label lblTite 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "TitanNET 2003 Self-Connect CD"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   24
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00FFFFFF&
      Height          =   1095
      Left            =   2280
      TabIndex        =   2
      Top             =   240
      Width           =   4335
   End
End
Attribute VB_Name = "frmPostInstall"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdCampus_Click()
    cmdCampus.Enabled = False
    cmdCampus.FontItalic = True
    cmdCampus.Caption = "Processing..."
    
    Dim dummy
    dummy = Shell(CDDrive & "\IE\campus\ie6setup.exe", vbNormalFocus)
    ProgDone
End Sub

Private Sub cmdConfigureForHome_Click()
    cmdConfigureForHome.Caption = "Processing..."
    cmdConfigureForHome.FontItalic = True
    cmdConfigureForHome.Enabled = False
    Dim dummy
    dummy = Shell(CDDrive & "\IE\Home\ie6setup.exe", vbNormalFocus)
    ProgDone
End Sub

Private Sub cmdExit_Click()
    ProgDone
End Sub

Private Sub cmdHelp_Click()
    Dim dummy
    dummy = Shell("explorer.exe " & CDDrive & "\help\help.htm", vbMaximizedFocus)
End Sub

Private Sub cmdHelpMe_Click()
    frmPostInstall.WindowState = vbMinimized
    MsgBox "This is where we may go to the online form"
    frmPostInstall.WindowState = vbMaximized
End Sub

Private Sub cmdStart_Click()
    'If the user is running Windows 9x, run unc32.  This is to allow the
    'client to be reinstalled
    Dim dummy
    
    If OSName = "Windows 95" Then
        AppStep = 0
        DumpStateToReg
        dummy = Shell(CDDrive & "\Client9x\ADMIN\unc32.exe", vbNormalFocus)
        ProgDone
    Else
        Dim response
        response = MsgBox("If you need to reinstall the Novell Client, you must first uninstall the current version.  If you do not uninstall the current version, when the installer attepts to install the Novell Client, you will not see any information on the screen.  After the screen dissapears, restart your computer.  Setup will continue with the next step.  Do you want to remove Novell Before you continue?", vbYesNoCancel + vbQuestion, "Rerun CD from the start")
        If response = vbCancel Then
            Exit Sub
        Else
            response = MsgBox("Would you like help uninstalling Novell?", vbQuestion + vbYesNo)
            If response = vbYes Then dummy = Shell("explorer.exe " & CDDrive & "\help\removenovell.htm", vbMaximizedFocus)
            AppStep = 0
            DumpStateToReg
            ProgDone
        End If
    End If

    frmLicenseAgreement.Show
    frmPostInstall.Hide
End Sub
