VERSION 5.00
Begin VB.Form frmSplash
AutoRedraw = -1 'True
BackColor = &H00E3E7ED&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 6150
ClientLeft = 2925
ClientTop = 1350
ClientWidth = 6540
ClipControls = 0 'False
ControlBox = 0 'False
ForeColor = &H00C0E0FF&
Icon = "frmSplash.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 410
ScaleMode = 3 'Pixel
ScaleWidth = 436
ShowInTaskbar = 0 'False
Begin VB.Frame Frame1
BackColor = &H00E3E7ED&
Height = 5955
Left = 150
TabIndex = 0
Top = 60
Width = 6225
Begin VB.Label Label1
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Licensed To :"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 240
TabIndex = 9
Top = 240
Width = 975
End
Begin VB.Image Image1
Height = 720
Left = 4920
Picture = "frmSplash.frx":0ECA
Top = 1200
Width = 720
End
Begin VB.Label lblCopyright
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Copyright"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 210
Left = 120
TabIndex = 4
Top = 5280
Width = 690
End
Begin VB.Label lblCompany
BackStyle = 0 'Transparent
Caption = "Developed by Penuel"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 255
Left = 4440
TabIndex = 3
Top = 5640
Width = 1695
End
Begin VB.Label lblWarning
BackStyle = 0 'Transparent
Caption = "Warning"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 120
TabIndex = 2
Top = 5640
Width = 3015
End
Begin VB.Label lblVersion
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Version 1.0"
BeginProperty Font
Name = "Arial"
Size = 12
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 285
Left = 3960
TabIndex = 5
Top = 2880
Width = 1275
End
Begin VB.Label lblPlatform
Alignment = 1 'Right Justify
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Windows"
BeginProperty Font
Name = "Arial"
Size = 15.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808000&
Height = 360
Left = 3120
TabIndex = 6
Top = 2520
Width = 1380
End
Begin VB.Label lblProductName
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Address Book-04"
BeginProperty Font
Name = "Arial"
Size = 32.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00F48039&
Height = 765
Left = 240
TabIndex = 8
Top = 1800
Width = 5295
End
Begin VB.Label lblLicenseTo
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "licensed to"
BeginProperty Font
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00000080&
Height = 210
Left = 1320
TabIndex = 1
Top = 240
Width = 915
End
Begin VB.Label lblCompanyProduct
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "Penuel's"
BeginProperty Font
Name = "Arial"
Size = 18
Charset = 0
Weight = 700
Underline = -1 'True
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 435
Left = 240
TabIndex = 7
Top = 1320
Width = 1470
End
End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'api declarations
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Private Const HWND_TOPMOST = -1
Private Const SWP_NOMOVE = &H2
Dim cname As String * 100
Dim intSize As Long
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Private Sub Form_Load()
intSize = 100
SetWindowPos Me.hwnd, HWND_TOPMOST, Me.Left, Me.Top, 440, 420, SWP_NOMOVE
GetComputerName cname, intSize
lblLicenseTo.Caption = cname
lblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision
lblProductName.Caption = App.Title
lblCopyright.Caption = App.LegalCopyright
Form1.Show
End Sub
Private Sub Frame1_Click()
Unload Me
End Sub
