frmsplash.frm

酒店管理系统 主要是实现了酒店的客房管理

VERSION 5.00
Begin VB.Form frmSplash 
   BackColor       =   &H000000FF&
   BorderStyle     =   1  'Fixed Single
   ClientHeight    =   1170
   ClientLeft      =   15
   ClientTop       =   15
   ClientWidth     =   6480
   ControlBox      =   0   'False
   LinkTopic       =   "Form13"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   Picture         =   "frmSplash.frx":0000
   ScaleHeight     =   1170
   ScaleWidth      =   6480
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   2760
      Top             =   240
   End
End
Attribute VB_Name = "frmSplash"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Form_KeyPress(KeyAscii As Integer)
    Unload Me
End Sub

Private Sub Timer1_Timer()
Timer1.Interval = 0
Unload frmSplash
main_mima.Show
End Sub