You cannot select more than 25 topics
			Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
		
		
		
		
		
			
		
			
				
	
	
		
			215 lines
		
	
	
		
			6.3 KiB
		
	
	
	
		
			Plaintext
		
	
			
		
		
	
	
			215 lines
		
	
	
		
			6.3 KiB
		
	
	
	
		
			Plaintext
		
	
| VERSION 5.00
 | |
| Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx"
 | |
| Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx"
 | |
| Begin VB.Form frmStartUp 
 | |
|    BorderStyle     =   0  'None
 | |
|    Caption         =   "Form1"
 | |
|    ClientHeight    =   3930
 | |
|    ClientLeft      =   0
 | |
|    ClientTop       =   0
 | |
|    ClientWidth     =   6360
 | |
|    LinkTopic       =   "Form1"
 | |
|    Picture         =   "frmStartUp.frx":0000
 | |
|    ScaleHeight     =   3930
 | |
|    ScaleWidth      =   6360
 | |
|    ShowInTaskbar   =   0   'False
 | |
|    StartUpPosition =   2  'CenterScreen
 | |
|    Begin VB.Timer Timer1 
 | |
|       Interval        =   10
 | |
|       Left            =   5790
 | |
|       Top             =   1320
 | |
|    End
 | |
|    Begin VWSLanguageLib.VWSIndex idxSystem 
 | |
|       Height          =   315
 | |
|       Index           =   1
 | |
|       Left            =   600
 | |
|       Top             =   270
 | |
|       Width           =   1395
 | |
|       _cx             =   2461
 | |
|       _cy             =   556
 | |
|       BackStyle       =   1
 | |
|       Enabled         =   -1  'True
 | |
|       Alignment       =   7
 | |
|       ShadowColor1    =   -2147483632
 | |
|       ShadowColor2    =   -2147483634
 | |
|       ShadowDepth     =   2
 | |
|       ShadowStyle     =   0
 | |
|       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
 | |
|          Name            =   "StarTrek Film BT"
 | |
|          Size            =   12
 | |
|          Charset         =   0
 | |
|          Weight          =   700
 | |
|          Underline       =   0   'False
 | |
|          Italic          =   0   'False
 | |
|          Strikethrough   =   0   'False
 | |
|       EndProperty
 | |
|       BackColorOff    =   0
 | |
|       BackColorOn     =   -2147483643
 | |
|       ForeColorOff    =   15177249
 | |
|       ForeColorOn     =   -2147483640
 | |
|       TextRotation    =   0
 | |
|       VWItem          =   ""
 | |
|       Blink           =   0
 | |
|       IndexGroup      =   "Forms.frmStartUp"
 | |
|       IndexPrefix     =   ""
 | |
|       BitNumber       =   0
 | |
|       Mode            =   -1
 | |
|       Offset          =   0
 | |
|       Range           =   1
 | |
|       FontClass       =   ""
 | |
|       OffsetText      =   0
 | |
|       TextOn          =   ""
 | |
|       TextOff         =   "System"
 | |
|    End
 | |
|    Begin VWSLanguageLib.VWSIndex idxVersion 
 | |
|       Height          =   330
 | |
|       Index           =   0
 | |
|       Left            =   1920
 | |
|       Top             =   2925
 | |
|       Width           =   2475
 | |
|       _cx             =   4366
 | |
|       _cy             =   582
 | |
|       BackStyle       =   1
 | |
|       Enabled         =   -1  'True
 | |
|       Alignment       =   7
 | |
|       ShadowColor1    =   -2147483632
 | |
|       ShadowColor2    =   -2147483634
 | |
|       ShadowDepth     =   2
 | |
|       ShadowStyle     =   0
 | |
|       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
 | |
|          Name            =   "StarTrek Film BT"
 | |
|          Size            =   15.75
 | |
|          Charset         =   0
 | |
|          Weight          =   400
 | |
|          Underline       =   0   'False
 | |
|          Italic          =   0   'False
 | |
|          Strikethrough   =   0   'False
 | |
|       EndProperty
 | |
|       BackColorOff    =   0
 | |
|       BackColorOn     =   -2147483643
 | |
|       ForeColorOff    =   15516
 | |
|       ForeColorOn     =   -2147483640
 | |
|       TextRotation    =   0
 | |
|       VWItem          =   ""
 | |
|       Blink           =   0
 | |
|       IndexGroup      =   "Forms.frmStartUp"
 | |
|       IndexPrefix     =   ""
 | |
|       BitNumber       =   0
 | |
|       Mode            =   -1
 | |
|       Offset          =   0
 | |
|       Range           =   1
 | |
|       FontClass       =   ""
 | |
|       OffsetText      =   0
 | |
|       TextOn          =   ""
 | |
|       TextOff         =   "Version"
 | |
|    End
 | |
|    Begin VWSLanguageLib.VWSIndex idxStartup 
 | |
|       Height          =   525
 | |
|       Left            =   750
 | |
|       Top             =   2370
 | |
|       Width           =   4815
 | |
|       _cx             =   8493
 | |
|       _cy             =   926
 | |
|       BackStyle       =   1
 | |
|       Enabled         =   -1  'True
 | |
|       Alignment       =   7
 | |
|       ShadowColor1    =   -2147483632
 | |
|       ShadowColor2    =   -2147483634
 | |
|       ShadowDepth     =   2
 | |
|       ShadowStyle     =   0
 | |
|       BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
 | |
|          Name            =   "StarTrek Film BT"
 | |
|          Size            =   20.25
 | |
|          Charset         =   0
 | |
|          Weight          =   400
 | |
|          Underline       =   0   'False
 | |
|          Italic          =   0   'False
 | |
|          Strikethrough   =   0   'False
 | |
|       EndProperty
 | |
|       BackColorOff    =   0
 | |
|       BackColorOn     =   -2147483643
 | |
|       ForeColorOff    =   26111
 | |
|       ForeColorOn     =   -2147483640
 | |
|       TextRotation    =   0
 | |
|       VWItem          =   ""
 | |
|       Blink           =   0
 | |
|       IndexGroup      =   "Forms.frmStartUp"
 | |
|       IndexPrefix     =   ""
 | |
|       BitNumber       =   0
 | |
|       Mode            =   -1
 | |
|       Offset          =   0
 | |
|       Range           =   1
 | |
|       FontClass       =   ""
 | |
|       OffsetText      =   0
 | |
|       TextOn          =   ""
 | |
|       TextOff         =   "Startup"
 | |
|    End
 | |
|    Begin VisiWinStudioLib.VWSBar barStart 
 | |
|       Height          =   765
 | |
|       Left            =   750
 | |
|       Top             =   1170
 | |
|       Width           =   4815
 | |
|       _cx             =   8493
 | |
|       _cy             =   1349
 | |
|       BackColor       =   0
 | |
|       BackStyle       =   1
 | |
|       FillColor1      =   15177249
 | |
|       FillColor2      =   12413208
 | |
|       FillColor3      =   16711680
 | |
|       FillColor4      =   12582912
 | |
|       FillColor5      =   8388608
 | |
|       Enabled         =   -1  'True
 | |
|       Direction       =   2
 | |
|       Limits          =   1
 | |
|       Limit12         =   5000
 | |
|       Limit23         =   4000
 | |
|       Limit34         =   6000
 | |
|       Limit45         =   8000
 | |
|       MaxValue        =   10000
 | |
|       MinValue        =   0
 | |
|       Mono            =   0   'False
 | |
|       ReferenceValue  =   0
 | |
|       ShadowColor1    =   -2147483632
 | |
|       ShadowColor2    =   -2147483634
 | |
|       ShadowDepth     =   2
 | |
|       ShadowStyle     =   0
 | |
|       DisplayGradient =   -1  'True
 | |
|       ReferenceColor  =   15769650
 | |
|       Value           =   10000
 | |
|       ShowLimits      =   0   'False
 | |
|       ShowReference   =   -1  'True
 | |
|       LimitColor      =   0
 | |
|       VWItem          =   "__UNLINKED_I4"
 | |
|       Blink           =   0
 | |
|       RecipeMember    =   0   'False
 | |
|    End
 | |
| End
 | |
| Attribute VB_Name = "frmStartUp"
 | |
| Attribute VB_GlobalNameSpace = False
 | |
| Attribute VB_Creatable = False
 | |
| Attribute VB_PredeclaredId = True
 | |
| Attribute VB_Exposed = False
 | |
| Option Explicit
 | |
| 
 | |
| Private Sub Form_Load()
 | |
| 
 | |
|    Set curFrm = Me
 | |
| 
 | |
| End Sub
 | |
| 
 | |
| Private Sub Timer1_Timer()
 | |
| 
 | |
|     Static i As Integer
 | |
|     
 | |
|     barStart.Value = i
 | |
|     
 | |
|     i = i + 50
 | |
|     
 | |
|     If i = 10050 Then
 | |
|         
 | |
|         FCentral.Show
 | |
|         Unload Me
 | |
|     End If
 | |
| 
 | |
| End Sub
 |