TOP
Enter Frm
VERSION 5.00
Begin VB.Form frm_Enter
BackColor = &H00C00000&
BorderStyle = 3 'Fixed Dialog
ClientHeight = 3195
ClientLeft = 45
ClientTop = 45
ClientWidth = 4680
ControlBox = 0 'False
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3195
ScaleWidth = 4680
ShowInTaskbar = 0 'False
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmd_enter
BackColor = &H0080FFFF&
Caption = "Enter Faura Building"
BeginProperty Font
Name = "MS Sans Serif"
Size = 13.5
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 735
Left = 1350
MaskColor = &H00FFFF00&
Style = 1 'Graphical
TabIndex = 0
Top = 2025
UseMaskColor = -1 'True
Width = 1695
End
Begin VB.Image img_faura
Height = 1230
Left = 675
Picture = "Enter.frx":0000
Stretch = -1 'True
Top = 585
Width = 1725
End
End
Attribute VB_Name = "frm_enter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'this is the first form to be displayed
'it is simply a welcome form to the faura map
Option Explicit
Public Sub cmd_enter_Click()
frm_enter.Hide
frm_1stfloor.Show
Call delayer
End Sub
Private Sub Form_Load()
frm_enter.Top = 0
frm_enter.Left = Screen.Width / 4
frm_enter.Height = Screen.Height
frm_enter.Width = Screen.Width * 3 / 4
cmd_enter.Width = frm_enter.Width / 4
cmd_enter.Height = frm_enter.Height / 13
cmd_enter.Left = (frm_enter.Width / 2) - (cmd_enter.Width / 2)
cmd_enter.Top = frm_enter.Height * 9 / 12
img_faura.Top = 0
img_faura.Left = 0
img_faura.Width = frm_enter.Width
img_faura.Height = frm_enter.Height
End Sub
TOP
|