VERSION 5.00 Begin VB.Form GadgetoriumSplash BackColor = &H00000000& BorderStyle = 3 'Fixed Dialog ClientHeight = 4305 ClientLeft = 255 ClientTop = 1410 ClientWidth = 7770 ClipControls = 0 'False ControlBox = 0 'False Icon = "frmSplash.frx":0000 KeyPreview = -1 'True LinkTopic = "Form2" MaxButton = 0 'False MinButton = 0 'False ScaleHeight = 4305 ScaleWidth = 7770 ShowInTaskbar = 0 'False StartUpPosition = 2 'CenterScreen Begin VB.Timer ColorTimer Interval = 250 Left = 3240 Top = 2880 End Begin VB.Frame Frame1 BackColor = &H00FFC0C0& Height = 4050 Left = 150 TabIndex = 0 Top = 120 Width = 7515 Begin VB.CommandButton CmdContinue Caption = "Close" Height = 315 Left = 4860 TabIndex = 11 Top = 3690 Width = 1425 End Begin VB.TextBox Text1 Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H00FF8080& BorderStyle = 0 'None CausesValidation= 0 'False Height = 495 Left = 3600 MultiLine = -1 'True TabIndex = 9 TabStop = 0 'False Text = "frmSplash.frx":000C Top = 1650 Width = 3720 End Begin VB.Timer ScreenTimer Interval = 15000 Left = 2700 Top = 2760 End Begin VB.TextBox HiddenText Appearance = 0 'Flat BackColor = &H00000000& BorderStyle = 0 'None Height = 135 Left = 210 TabIndex = 10 Top = 540 Width = 195 End Begin VB.Image imgLogo Height = 2385 Left = 120 Picture = "frmSplash.frx":0049 Stretch = -1 'True Top = 390 Width = 3375 End Begin VB.Label Label1 BackColor = &H00FFC0C0& Caption = "www.gadgetorium.com" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 8 Top = 3390 Width = 2415 End Begin VB.Label lblCopyright BackColor = &H00FFC0C0& Caption = "Copyright (C) 2000" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 4 Top = 2970 Width = 2415 End Begin VB.Label lblCompany BackColor = &H00FFC0C0& Caption = "The Gadgetorium, L.L.C." BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 255 Left = 120 TabIndex = 3 Top = 3180 Width = 2415 End Begin VB.Label lblWarning BackColor = &H00FFC0C0& Caption = "This Software is protected by U.S. Law" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 195 Left = 150 TabIndex = 2 Top = 3720 Width = 3285 End Begin VB.Label lblVersion Alignment = 2 'Center AutoSize = -1 'True BackColor = &H00FF8080& Caption = "Version 1.0" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 210 Left = 4995 TabIndex = 5 Top = 1410 Width = 930 End Begin VB.Label lblProductName Alignment = 2 'Center BackColor = &H00FF8080& Caption = "Memory Expander" BeginProperty Font Name = "BankGothic Md BT" Size = 12 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 615 Left = 3600 TabIndex = 7 Top = 810 Width = 3720 End Begin VB.Label lblLicenseTo Alignment = 1 'Right Justify AutoSize = -1 'True BackColor = &H00FFC0C0& Caption = "LicenseTo" BeginProperty Font Name = "Arial" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty Height = 210 Left = 6585 TabIndex = 1 Top = 150 Visible = 0 'False Width = 750 End Begin VB.Label lblCompanyProduct Alignment = 2 'Center Appearance = 0 'Flat BackColor = &H00FF8080& BorderStyle = 1 'Fixed Single Caption = "The Gadgetorium's" BeginProperty Font Name = "Arial" Size = 18 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty ForeColor = &H80000008& Height = 3255 Left = 3540 TabIndex = 6 Top = 360 Width = 3840 End End End Attribute VB_Name = "GadgetoriumSplash" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub Form_Load() lblCompany.ForeColor = RED lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision Me.Show DoEvents Me.SetFocus DoEvents HiddenText.Enabled = True HiddenText.SetFocus HiddenText.Enabled = False HiddenText.BackColor = BLACK HiddenText.ForeColor = BLACK HiddenText.ZOrder 1 HiddenText.Enabled = False 'lblProductName.Caption = App.Title End Sub Private Sub CmdContinue_Click() Unload Me End Sub Private Sub ColorTimer_Timer() Dim Colors(8) As Long Colors(1) = RED Colors(2) = WHITE Colors(3) = BLUE Colors(4) = YELLOW Colors(5) = GREEN Colors(6) = MAGENTA Colors(7) = CYAN Colors(8) = BLACK Static Lastcolor As Integer lblProductName.ForeColor = Colors(Lastcolor) If (Lastcolor > 1) And (Lastcolor Mod 2 = 0) Then lblCompany.ForeColor = Colors(Lastcolor - 1) End If If Lastcolor < 8 Then Lastcolor = Lastcolor + 1 Else Lastcolor = 1 End If ' GadgetoriumSplash.SetFocus DoEvents End Sub Private Sub Form_KeyPress(KeyAscii As Integer) Unload Me End Sub Private Sub Form_LostFocus() ' Me.SetFocus End Sub Private Sub Frame1_Click() Unload Me End Sub Private Sub Label1_Click() HiddenText.Enabled = True HiddenText.SetFocus HiddenText.Enabled = False End Sub Private Sub lblCompany_Click() HiddenText.Enabled = True HiddenText.SetFocus HiddenText.Enabled = False End Sub Private Sub lblCompanyProduct_Click() HiddenText.Enabled = True HiddenText.SetFocus HiddenText.Enabled = False End Sub Private Sub lblCopyright_Click() HiddenText.Enabled = True HiddenText.SetFocus HiddenText.Enabled = False End Sub Private Sub lblProductName_Click() HiddenText.Enabled = True HiddenText.SetFocus HiddenText.Enabled = False End Sub Private Sub lblWarning_Click() HiddenText.Enabled = True HiddenText.SetFocus HiddenText.Enabled = False End Sub Private Sub ScreenTimer_Timer() If ScreenTimer.Tag <> "Continue" Then Unload Me End If End Sub Private Sub Text1_GotFocus() GadgetoriumSplash.SetFocus HiddenText.Enabled = True HiddenText.SetFocus HiddenText.Enabled = False End Sub