www.pudn.com > 考勤管理系统源码(VB含串口接口程序).zip > frmAbout.frm

VERSION 5.00 
Begin VB.Form frmAbout  
   BorderStyle     =   0  'None 
   ClientHeight    =   4485 
   ClientLeft      =   2295 
   ClientTop       =   1605 
   ClientWidth     =   7530 
   ClipControls    =   0   'False 
   ControlBox      =   0   'False 
   Icon            =   "frmAbout.frx":0000 
   LinkTopic       =   "Form2" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   Picture         =   "frmAbout.frx":000C 
   ScaleHeight     =   3095.627 
   ScaleMode       =   0  'User 
   ScaleWidth      =   7071.06 
   ShowInTaskbar   =   0   'False 
   Begin VB.Timer Timer1  
      Interval        =   2000 
      Left            =   0 
      Top             =   0 
   End 
End 
Attribute VB_Name = "frmAbout" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Option Explicit 
 
 
Private Sub Form_Click() 
    Timer1_Timer 
End Sub 
 
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer) 
    If KeyCode = vbKeyReturn Then 
        Timer1_Timer 
    End If 
End Sub 
 
Private Sub Form_Load() 
    Timer1.Enabled = True 
End Sub 
 
Private Sub Form_Unload(Cancel As Integer) 
    EndSystem 
End Sub 
 
Private Sub Timer1_Timer() 
    Timer1.Enabled = False 
    Unload Me 
End Sub