lead.frm

制作好的请假系统的小软件

VERSION 5.00
Begin VB.Form lead 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "欢迎使用本操作系统"
   ClientHeight    =   6465
   ClientLeft      =   2985
   ClientTop       =   2430
   ClientWidth     =   8595
   LinkTopic       =   "Form1"
   Picture         =   "lead.frx":0000
   ScaleHeight     =   6465
   ScaleWidth      =   8595
   ShowInTaskbar   =   0   'False
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer Timer2 
      Interval        =   4000
      Left            =   7920
      Top             =   5520
   End
   Begin VB.Timer Timer1 
      Interval        =   2000
      Left            =   7920
      Top             =   4920
   End
   Begin VB.Image Image1 
      Height          =   3645
      Left            =   2280
      Picture         =   "lead.frx":905A
      Top             =   1920
      Visible         =   0   'False
      Width           =   4290
   End
End
Attribute VB_Name = "lead"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Image1.Visible = True
Beep
Timer1.Enabled = False
Timer2.Enabled = True

End Sub

Private Sub Timer2_Timer()

Timer2.Enabled = False
Unload Me
main.Show
End Sub