VERSION 5.00
Begin VB.Form frmStartInstall 
   BackColor       =   &H00800000&
   BorderStyle     =   1  'Fixed Single
   Caption         =   "Ready to start install..."
   ClientHeight    =   3555
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   8940
   Icon            =   "startinstall.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3555
   ScaleWidth      =   8940
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdExit 
      Cancel          =   -1  'True
      Caption         =   "E&xit"
      Height          =   495
      Left            =   5520
      TabIndex        =   2
      Top             =   2880
      Width           =   1575
   End
   Begin VB.CommandButton cmdStart 
      Caption         =   "&Start Install"
      Default         =   -1  'True
      Height          =   495
      Left            =   7200
      TabIndex        =   1
      Top             =   2880
      Width           =   1575
   End
   Begin VB.Label lblText 
      BackStyle       =   0  'Transparent
      ForeColor       =   &H00FFFFFF&
      Height          =   2415
      Left            =   3600
      TabIndex        =   0
      Top             =   240
      Width           =   4695
   End
   Begin VB.Image imgWCLogo 
      Height          =   3030
      Left            =   0
      Picture         =   "startinstall.frx":058A
      Top             =   0
      Width           =   3330
   End
End
Attribute VB_Name = "frmStartInstall"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmdExit_Click()
    Unload Me
End Sub

Private Sub cmdStart_Click()
   frmClean.Show
   frmStartInstall.Hide
End Sub

Private Sub Form_Load()
    lblText.Caption = "The CD is now ready to install the software to connect your computer to TitanNET.  This process will install three major components and require several restarts of your computer.  These components are:" & Chr(10) & Chr(10) & "- Novell Client for Windows" & Chr(10) & "- Microsoft Internet Explorer 6.01 SP1" & Chr(10) & "- Symantec AntiVirus 8.0" & Chr(10) & Chr(10) & "No changes have been made to your system at this time.  When you are ready to start installing, make sure all running programs are closed and click the Start Install button."
End Sub

Private Sub Form_Unload(Cancel As Integer)
    Dim response
    response = MsgBox("Are you sure you want to exit the install?", vbYesNo + vbDefaultButton2 + vbQuestion, "Question")
    If response = vbYes Then
        ProgDone
    Else
        Cancel = 5
    End If
End Sub
