home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1995 May
/
cica_0595_4.zip
/
cica_0595_4
/
UTIL
/
WSPRTERM
/
WELCOME.FRM
< prev
next >
Wrap
Text File
|
1994-07-10
|
2KB
|
88 lines
VERSION 2.00
Begin Form FWelcome
BorderStyle = 3 'Fixed Double
Caption = "WSPRTERM"
ClientHeight = 5205
ClientLeft = 2835
ClientTop = 1455
ClientWidth = 3630
ClipControls = 0 'False
ControlBox = 0 'False
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
Height = 5640
Left = 2760
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
Picture = WELCOME.FRX:0000
ScaleHeight = 5205
ScaleWidth = 3630
Top = 1095
Width = 3780
Begin Timer TWelcome
Interval = 3000
Left = 2610
Top = 4230
End
Begin Label Datapoint
BackStyle = 0 'Transparent
Caption = "Whisper Computer Solutions of San Antonio"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 240
Left = 90
TabIndex = 1
Top = 4905
Width = 3210
End
Begin Label Copyright
BackStyle = 0 'Transparent
Caption = "Copyright 1994"
FontBold = 0 'False
FontItalic = 0 'False
FontName = "MS Sans Serif"
FontSize = 8.25
FontStrikethru = 0 'False
FontUnderline = 0 'False
ForeColor = &H00000000&
Height = 240
Left = 90
TabIndex = 0
Top = 4680
Width = 2175
End
End
Option Explicit
Sub Form_Load ()
version = "1.1.C"
FWelcome.Caption = "WSPRTERM " & version
FWelcome.Move (Screen.Width - FWelcome.Width) / 2, (Screen.Height - FWelcome.Height) / 2
FWelcome.Show
DoEvents
Load FMain
End Sub
Sub TWelcome_Timer ()
TWelcome.Enabled = False
FMain.Show
Unload FWelcome
End Sub