VERSION 5.00
Begin VB.Form frmCCL 
   BackColor       =   &H00800000&
   BorderStyle     =   3  'Fixed Dialog
   Caption         =   "TitanNET 2003 Self-Connect CD - Contextless Login"
   ClientHeight    =   1305
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   7065
   ControlBox      =   0   'False
   Icon            =   "CLL.frx":0000
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   1305
   ScaleWidth      =   7065
   StartUpPosition =   2  'CenterScreen
   Begin VB.Timer tmrWait 
      Enabled         =   0   'False
      Interval        =   3000
      Left            =   360
      Top             =   840
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "&OK"
      Height          =   375
      Left            =   2760
      TabIndex        =   1
      Top             =   840
      Width           =   1695
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   $"CLL.frx":058A
      ForeColor       =   &H00FFFFFF&
      Height          =   615
      Left            =   120
      TabIndex        =   0
      Top             =   0
      Width           =   6855
   End
End
Attribute VB_Name = "frmCCL"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdOK_Click()
    cmdOK.Enabled = False
    cmdOK.Caption = "Processing..."
    cmdOK.FontItalic = True
    
    'Due to a bug in the API classes for VB we cannot trust the class to place these values in the
    'registry.  We are keeping the .reg file used in 2002
    Dim RunString As String
    RunString = SystemClass.WindowsPath & "\regedit " & CDDrive + "\Client9x\CLLogin\LgnCLW9x.reg"
    Dim dummy
    dummy = Shell(RunString, vbNormalFocus)
    frmCCL.Hide
    tmrWait.Enabled = True
End Sub

Private Sub tmrWait_Timer()
    frmIE.Show
    tmrWait.Enabled = False
End Sub
