VERSION 5.00
Begin VB.Form frmWindowsVersionCheck 
   BackColor       =   &H00800000&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "TitanNET 2003 Self-connect CD"
   ClientHeight    =   3120
   ClientLeft      =   3075
   ClientTop       =   2595
   ClientWidth     =   7215
   ControlBox      =   0   'False
   Icon            =   "versioncheck.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3120
   ScaleWidth      =   7215
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  'CenterScreen
   Begin VB.CommandButton cmdClose 
      Caption         =   "&Close"
      Height          =   375
      Left            =   3720
      TabIndex        =   5
      Top             =   2640
      Width           =   2055
   End
   Begin VB.CommandButton cmdNovell 
      Caption         =   "Click here to visit Novell's Web page regarding Windows XP Home."
      Height          =   375
      Left            =   120
      TabIndex        =   4
      Top             =   3120
      Visible         =   0   'False
      Width           =   6975
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "&OK"
      Height          =   375
      Left            =   1200
      TabIndex        =   3
      Top             =   2640
      Width           =   2055
   End
   Begin VB.Label lblNotes 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "SUPPORTED/NOT SUPPORTED MESSAGE"
      ForeColor       =   &H00FFFFFF&
      Height          =   975
      Left            =   120
      TabIndex        =   2
      Top             =   1560
      Width           =   6975
   End
   Begin VB.Label lblWinVer 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "OS VERSION TO BE DETECTED"
      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            =   120
      TabIndex        =   1
      Top             =   480
      Width           =   6975
   End
   Begin VB.Label lblTitle 
      Alignment       =   2  'Center
      BackStyle       =   0  'Transparent
      Caption         =   "This program has detected the following version of Windows on your system:"
      ForeColor       =   &H00FFFFFF&
      Height          =   375
      Left            =   120
      TabIndex        =   0
      Top             =   120
      Width           =   6975
   End
End
Attribute VB_Name = "frmWindowsVersionCheck"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Const SUPPORTED_OS = "This version of Windows is supported by Westminster College.  Please click OK to continue."
Const UNSUPPORTED_OS = "This version of Windows is NOT supported by Westminster College.  You may continue at your own risk, but please note that Westminster College can not and will not be responsible for any adverse effects to your system."

Private Sub cmdClose_Click()
    Dim response
    response = MsgBox("Are you sure you want to abort the install?", vbQuestion + vbDefaultButton2 + vbYesNo)
    If response = vbYes Then
        ProgDone
    End If
End Sub

Private Sub cmdNovell_Click()
    Dim yay
    yay = Shell("explorer http://support.novell.com/cgi-bin/search/searchtid.cgi?/10065595.htm", vbNormalFocus)
End Sub

Private Sub cmdOK_Click()
    frmWindowsVersionCheck.Hide
    frmRemoveAntiVirus.Show
End Sub

Private Sub Form_Load()
    Dim supported As Boolean
  
    'Display the windows version
    If OSName = "Windows 95" Then
        If OSVersion = 4 And OSBuild = 950 Then
            lblWinVer.Caption = "Windows 95"
            supported = False
        ElseIf OSVersion = 4 And OSBuild > 950 And OSBuild <= 1080 Then
            lblWinVer.Caption = "Windows 95 SP1"
            supported = False
        ElseIf OSVersion > 4 And OSVersion < 4.1 And OSBuild > 1080 Then
            lblWinVer.Caption = "Windows 95 OSR2"
            supported = False
        ElseIf OSVersion = 4.1 And OSBuild = 1998 Then
            lblWinVer.Caption = "Windows 98"
            supported = True
        ElseIf OSVersion = 4.1 And OSBuild > 1998 And OSBuild < 2183 Then
            lblWinVer = "Windows 98 SP1"
            supported = True
        ElseIf OSVersion = 4.1 And OSBuild >= 2183 Then
            lblWinVer = "Windows 98 Second Edition"
            supported = True
        ElseIf OSVersion = 4.9 Then
            lblWinVer = "Windows Millenium Edition"
            supported = False
        End If
    ElseIf OSName = "Windows NT" Then
        If OSVersion = 3.51 Then
            lblWinVer = "Windows NT 3.51"
            supported = False
        ElseIf OSVersion = 4 Then
            lblWinVer = "Windows NT 4.0"
            supported = False
        ElseIf OSVersion = 5 Then
            lblWinVer = "Windows 2000"
            supported = True
        ElseIf OSVersion = 5.1 Then
            lblWinVer = "Windows XP"
            supported = True
        End If
    End If
            
            
'Display the appropriate notice in the notes field
    If supported Then
        lblNotes.Caption = SUPPORTED_OS
    Else
        lblNotes.Caption = UNSUPPORTED_OS
    End If
    
    If OSVersion = 5.1 Then  'Display the XP Home disclaimer
        lblNotes.Caption = lblNotes.Caption & Chr(10) & Chr(10) & "Only Windows XP Professional is reccomended for use on TitanNET.  If you have Windows XP Home you may experience some difficulties.  For more information on this, please click the button below."
        cmdNovell.Visible = True
        frmWindowsVersionCheck.Height = 4020
    End If
End Sub

